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