Hi to all, this is my second JAPH. I like it cause transforms an email in japh. Hopes

$_=q;;;;s;;perl\@programacionweb.com;;$n=[072,020,01,030,0140,021,
034,000,023,032,004,037,0101,063,014,035,002,0127,015,03,0115,010,
012,037];${{}=0;map{print chr(ord^($n->[${{}]));${{}++;}split
m;;;print"\n";
[download]