print;
print "\n>>>>\n";
print  eval $_;
print "\n>>>>\n";

##</code><code>##

my$c;$_="7072696e7420224a75737420616e6f74686572205065726c206861636b65725c6e223b";
while(m((..))sg){$c.=chr hex$1;}return$c;

##</code><code>##

return pack "H*", $_;