$p = "Aa!Zz!zZ!";
$q = "Aa!zZ!Zz!";

$r = '
$unused = q="=;

$d = qq{
   \44p = \42$p\42;
   \44q = \42$q\42;
   \44r = \47$r\47;
   eval \44r;
};
$d =~ s/\s//gs;

$i = 0;
print(map
{
   ($l = $_ % 32) &&
   $_ > 92 ? substr($d, ($i += $l) - $l, $l)
           : chr($_ > 63 ? 32 : 10) x $l
} unpack (q{C*}, $p));


$unused = "

d = %{
   \44p = \42#{$p}\42;
   \44q = \42#{$q}\42;
   \44r = \47#{$r}\47;
   eval \44r;
}.gsub(/\s/, %{})

i = 0
$q.each_byte{|c|
   l = c % 32
   print(c > 95 ? d[(i += l) - l, l]
                : (c > 63 ? 32 : 10).chr * l)
}
#";

';
eval $r;