while (<FILE>) {
 $count++ while /foo/g; 
}
print $count;