Help for this page

Select Code to Download

Select or download this

$ perl -e '
    my $str =   "BaBBaBBBaBBBB";
...
2 ->  3
5 ->  7
9 -> 12