Q:\>perl -we "$s='corion'; $s =~ tr[a-z][b-za]; print $s"
dpsjpo