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