c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'abcdefghi';
 substr($x, 5, 3) =~ s/g/G/;
 print $x;
"
abcdefGhi