perl -ne '$n += () = /foo/g }{ print $n' <(< large.txt fgrep foo)