perl -ne '/^(.\d{4})/ && $seen{$1}++; END { print "$k seen $v times\n" while ($k,$v) = each %seen }'