$string =~ m/.*(?=b)/g and $string =~ s/\Gb/x/;