foreach my $line (@lines) {

  $line =~ s/\"//g;

  my ($reqid, $date, $time, $pages, $pages_sent, $client, $phone) = sp
+lit('\s+',$line);

  if ($lastdate and $date ne $lastdate) {
    print "$lastdate: $faxctr, Pages: $pagectr\n";
    $faxctr = 0;
    $pagectr = 0;
  }
  $faxctr++;
  $pagectr += $pages;
  $lastdate = $date;

}