$foo = reverse $foo;
$foo =~ s/b/X/;
$foo = reverse $foo;

##</code><code>##

s/b[^b]*$/X/;