$ cat yX.pm
package yX;

use Filter::Simple sub {
   tr/n-za-mN-ZA-M/a-zA-Z/;
};

1;