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