S:\>perl -le"while(<>){ 1+index($_, 'clanks') and print; }" 8gb.txt | wc -l
   4096