@_=($str =~ m/$pattern/g) and $count=1+$#_;