$k="%73%63%72%69%70%74%61%73%79%6C%75%6D%40%68%6F%74%6D%61%69%6C%2E%63%6F%6D";
$k=~s/%(..)/chr hex $1/ge;
print $k;