perl -le 'while (<>) { chomp;$x{lc $_} = 1 }; for (keys %x) { ($n=$_)=~tr/a-z/n-za-m/;print "$_ = $n" if $x{$n}++ == 1 && ++$x{$_} }' /usr/dict/big.words