#!/usr/local/bin/perl -w

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