#!/usr/local/bin/perl

use warnings;
use strict;
use English;
use Data::Dumper;
use Time::HiRes 'time';

my $logfile;

my $count = 0;                  # Initialize counter
my $start = time();             # Start the timer

my $fullrec;

while( <DATA>) {
	if (/^\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d:\d\d\d/) {
	    $count++;   
	    #if ($fullrec) {
	    #   process($fullrec);
	    #}
	    $fullrec = $_;
	} else {
	    $fullrec .= $_;
	}
}

#if (defined($fullrec)) {
#   process($fullrec);
#}

my $end = time();               # Stop the timer
my $elapsed = $end - $start;    # How long did that take?
my $average = $elapsed/$count;  # Average processing time

printf "Parsed $count log file entries in %.4f seconds, averaging %.4f\n", $elapsed, $average;

exit;


__DATA__
<SNIPPED DATA>