$string =~ s/(.*)b/\1x/;