$O = 0;
$q = q!
@o = (
   ("X" x (1000)) . "\n",
   "\n\n" . ("X" x (1000)) . "\n"
);

$t = $o[$O];
while( length($q) < length($t) - 65 )
{
   $i = int(rand(length($q)));
   $q = substr($q, 0, $i) . chr(35) . substr($q, $i);
}

$q = '$O=' . ($O ^ 1) . ';use' . chr(32) . 'Compress::Zlib;$q=q' . chr(33) . $q
     . chr(33) . ';($l=$q)=~s/[\s\x23]//gs;eval$l;';

@i = unpack 'C*', $q;
foreach $x (unpack 'C*', $t)
{
   $x = chr($x);
   print ($x =~ /[\s.*]/ ? $x : chr(shift @i));
}
!;

($l = $q) =~ s/[\s]//gs;
eval $l;