Q:\>perl -we "$s='corion'; for (1..1000) {$s++}; print $s"
corkaz

##</code><code>##

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