chomp $line;
    my $nuline =~ tr/a-zA-Z/n-za-mN-ZA-M/;

##</code><code>##

    my $nuline = $line;
    $nuline =~ tr/a-zA-Z/n-za-mN-ZA-M/;

##</code><code>##

    (my $nuline = $line) =~ tr/a-zA-Z/n-za-mN-ZA-M/;