# note that I used {} as the delimiter for tr/// $foo =~ tr{1234567890!@#$%^&*()-+=\\|~} {?/><:;[]{}poidjhgk5329%c1^}; #### $"=$,,$_=q>|\p4<6 8p .q>.<4-KI;$, .=pack'N*',"@{[unpack'C*',$_] }"for split/