$count++ while ($str=~ /$pattern/g);       # simple