Select Code to Download

$ cat 1176022.txt
The foo bar
...
What the foo
Expecting five foos
$

$ perl -nE '$l++; $i += () = $_ =~ /\bfoo\b/g; say "After line $l: $i"
+' 1176022.txt 
After line 1: 1
...
After line 6: 5
After line 7: 5
$