$string =~ s/b(?=[^b]*$)/X/;