#!/usr/bin/perl
while(<>){
  tr/a-z/n-za-m/;
  tr/A-Z/N-ZA-M/;
  print;
}