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