This looks pretty darn good as well.

Trying to play with this, can something like this work?

my $str1="1234567890!@#$%^&*()-+=\|~";
my $str2="?/><:;[]{}poidjhgk5329%c1^";
$foo =~ tr{$str1}{$str2};
[download]

thanks you so much!