Select Code to Download

perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'

#! perl
$_=q|
...
(Perl)(Hacker)(.*)
/$__$5/x;eval;&what;