if (/^LOGGING: \S+?-(\S+) \S+: (\S+) [^:]*: (\S+)$/) {
     my ($month, $what, $user) = ($1, $2, $3) ;
     if ($what eq 'STARTING') {
       $flushes{$month}{$user}++ ;
       $flushes{$month}{TOTAL}++ ;
     } ;
   }
   else {    # Any error reporting you like, eg:
     chomp ;
     print STDERR "Line $.: '$_' ??\n" ; 
   } ;