#!/usr/bin/perl 
while (<>) { 
    tr/a-zA-Z/n-za-mN-ZA-M/;
    print;
}
