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

$r = '
$b = q="=;

$d = qq{
   \44p = $b$p$b;
   \44q = $b$q$b;
   \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));


$b = ";

eval(%w{

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

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

} * %{});

#";

';
eval $r;