Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...


print $string, "\n";

Select or download this
```
$string =~ s/b(?=[^b]*$)/X/;
```