Select Code to Download

$string = reverse $string;
$string =~ s/b/x/;
$string = reverse $string;

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

$string =~ m/.*(?=b)/g and $string =~ s/\Gb/x/;

substr($string, rindex($string, 'b'), 1) = 'x';