$ time perl -lpe '$c++ if s/sex/cool/; END{warn "count=$c\n"}' gse1.log >/dev/null 
count=2840

real    0m19.062s
user    0m16.736s
sys     0m0.940s