Select Code to Download

my $nth = 3;
my $rep = 1;
my $chr = 'e';
...
substr($str, $pos) =~ s/$chr/$rep/g;

print $str;

my $s = "Terence and Philip are sweet\n";
my $c = 'e';
my $r = 1;
...
           Rate Quent's    Mine
Quent's 26867/s      --    -24%
Mine    35511/s     32%      --