# note that I used {} as the delimiter for tr///
$foo =~ tr{1234567890!@#$%^&*()-+=\\|~}
          {?/><:;[]{}poidjhgk5329%c1^};