Select Code to Download

substr($s, 1+index $s, 'bar') =~ s/bar/foo/g;

while ($var =~ s/bar.*?\Kbar/foo/) {1}

while ($var =~ s/(bar.*?)bar/$1foo/) {1}