$count = scalar ($str =~ m/pattern/g);