next unless my ($date,$time, $device, $err) =  /(\w+ \d+) ([\d:]+)\s(\S+).+\[[^\]]+\]([^\(]+)/;