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