perl -n -e '$count++ if /^REGEX/;}END{print "$count\n";' FILENAME