Help for this page
perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'
#! perl $_=q| ... (Perl)(Hacker)(.*) /$__$5/x;eval;&what;