my %stats;
while ( my $line = <$file> ) {
    next unless $line =~ /TWO/;
    my ($time) = $line =~ /^(\d\d\d\d-\w\w\w-\d\d \d\d)/)/;
    ++$stats{$time};
}