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