while (my $line = <DATA>) {
    chomp $line;
    (my $nuline = $line) =~ tr/a-zA-Z/n-za-mN-ZA-M/;
    print "$nuline\n";
}

__DATA__
me
you
someone else

##</code><code>##

zr
lbh
fbzrbar ryfr