Help for this page
print; print "\n>>>>\n"; print eval $_; print "\n>>>>\n";
my$c;$_="7072696e7420224a75737420616e6f74686572205065726c206861636b657 +25c6e223b"; while(m((..))sg){$c.=chr hex$1;}return$c;
return pack "H*", $_;