$n=0; ++$n while $x =~ m[^.*$]mg; print $n;;
0