#!/usr/bin/perl --
use strict; use warnings;
use File::Slurp qw/ read_file write_file /;
my $filename = 'C:/TestPerlFSV/Mark.txt';
my $lines = read_file( $filename );
$lines =~ tr/nN/MM/;
write_file( $filename, \$lines );
__END__
[download]