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

# 33 .. 38 = newline
# 40 .. 91 = space
# 93 .. 126 = char

$template = "zz!zz!zz!zz!zz!zs!Ax!";
$code =
q{
   $text =
      '$template = "' . $template . '";' .
      '$code = q{' . $code . '};' .
      '$code =~ s/[[:space:]]//gs;' .
      'eval $code;';
   @token = grep {!/[[:space:]]/} ($text =~ /./gs);
   foreach $i ($template =~ /./gs)
   {
      if( "&" ge $i )
      {
         print (chr(10));
      }
      elsif( "[" ge $i )
      {
         print (chr(32) x (ord($i) - ord("(") + 1));
      }
      else
      {
         foreach (ord("]") .. ord($i))
         {
            print (shift @token);
         }
      }
   }
};

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