#!/usr/bin/perl
# lily2.pl - Don Yang (uguu.org)
#
# 12/24/08

$p = "zz!zz!zz!zz!g^!y!";
$q =
q{
   @b = grep {!/[[:space:]]/}
   (
      ('$p="' . $p . '";$q=q{' . $q . '};$q=~s/[[:space:]]//gs;eval$q;')
         =~ /./gs
   );
   foreach $d ($p =~ /./gs)
   {
      $d = ord $d;
      if( 39 > $d )
      {
         print (chr(10));
      }
      elsif( 92 > $d )
      {
         print (chr(32) x ($d - 39));
      }
      else
      {
         foreach (93 .. $d)
         {
            print (shift @b);
         }
      }
   }
};

$q =~ s/[[:space:]]//gs;
eval $q;