#!/usr/bin/perl
use warnings;
use strict;

my %devinfo;

while (<DATA>) {
  next unless my ($date,$time, $device, $err) = /(\w+ \d+) ([\d:]+)\s(\S+) \[[^\]]+\]([^\(]+)\s?\(\d+/;
  $devinfo{$device}{$err}{COUNT}++;
  $devinfo{$device}{$err}{FIRST_TIME} ||= [$date, $time];
}

for my $dev (sort keys %devinfo) {

    print "DEVICE\t--> $dev ==============\n";
    for my $err (keys %{ $devinfo{$dev} }) {
      my $errinfo = $devinfo{$dev}{$err};
      print "DATE\t--> $errinfo->{FIRST_TIME}[0]\n";
      print "TIME\t--> $errinfo->{FIRST_TIME}[1]\n";
      print "ERROR\t--> $err\n";
      print "\nThe above error occurred $errinfo->{COUNT} times\n\n";
   }
}
__DATA__
<put data here>