$ time perl -e 'while (<>){$c++ if ($_=~/compaq/i)};print $c' *t
454
real        1.2
user        1.0
sys         0.1