Select Code to Download

$_=+q,8TZtX]8#GC8fahGMXWT_8TG#XtZ8ZuTGatWZZ!G_Z!8!8TZuXhTHahHMXhQ]Z1G_
aZXWaZ8T8TWHZ+WMXZZ8XhHMGMdQahGMZlZGahHMZ!dDZ18!HMH_Z!WMdJTHatGMahQHZu
...
daQ_G88MQ_QZH_8T8Q8fdHQZ8f8W8X8DXJ8TZh8MdQdhH88MHXGMdfQ+GWX#dZHdQ|df8T
8X,,$#='rD',s|\S|substr crypt($&,$#),length$#,length$&|ge,$#='';
s,..,chr hex$&,ge,$#.=$_ for split;eval$#

$_ = q{ ... wall text ...};
my $salt = 'rD';
...

# Eval the resulting program.
eval $prog;

print "Just another Perl hacker,\n"