$ echo 'qu@ofq.rr' | perl -pe 'y/A-Za-z/N-ZA-Mn-za-m/'