for ( reverse <> ) {
    chomp;
    ( my $line = reverse lc ) =~ tr/ahbbmfnnjpdrvutwqgye/eyqgwtuvrdpjnnfmbbha/;
    print "$line\n";
    }