Select Code to Download

use strict;
use warnings;
...
while( $string =~ /b/g ) {
    print $#-, "\n";
}

22350300