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