Select Code to Download

use strict;
use warnings;
...
print "string is $str\n";
$str=~s/(?<=(\d\s){1})\d*/I am replaced/;
print "string is $str";

$str=~s/(?<=(\d\s){0})\d*/I am replaced/;