Select Code to Download

$str = 'ababbb';
$pattern = 'b';
...
         + ($str=~/$pattern$/)
         - 1;
print "$count\n";

2

$count = (scalar split /$pattern/, $str, -1) - 1;