Select Code to Download

$string = "pre replace post";
$i = 4;
$j = 11;
$length = $j - $i;
substr($string, $i, $length) = "x" x $length;
print "$string\n";

$string = "pre replace post";
$i = 4;
$j = 11;
substr($string, $i, $j - $i) =~ tr/x/x/c;
print "$string\n";