my $string = "abababa";

print "was [$string]\n";

$string =~ s/(b)(?!.*b)/x/;

print "now [$string]\n";