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