$s = s/bar(?=bar)/foo/;