Select Code to Download

eval'&'.join',&',split//,'JuSt_another_Perl_hacker.';sub AUTOLOAD{$
i++,($j,$k)=(sort keys%::)[$i,$i+1]until$j=~/ARGV/;${$k}=~s/^.*:://
;${$k}=~y/_S/ s/;print${$k}}

eval"&@{[join',&',split//,'Just_another_Perl_hacker.']}";sub AUTOLOAD
{$i++,($j,$k)=(sort keys%::)[$i,$i+1]until$j=~/ARGV/;${$k}=~s/^.*:://
;${$k}=~y/_/ /;print${$k};sub s}

eval"&@{[join',&',split//,'Just_another_Perl_hacker.']}";sub AUTOLOAD
{($_,$k)=(sort keys%::)[$i++,$i]until/ARGV/;s/.*:://,y/_/ /,print for
$$k;sub s}

$_='+$+[+]++@+{+}++%+[+++]+++*++\++\+++++++++++++++++++++++@+++++++++'
.'+++++++++++++++++++(++++++++++++++)++++++++++++++++++++++++++++++++'
;;$/='+';while($_){$c++while chomp;;push@c,$c;;chop}print pack'c*',@c[
unpack'a2'x25,'02151314000309101406051200110512080006030407051201987']