$ perl -lne '$c += () = /foo/g; END { print $c }'