Select Code to Download

---------- <DATA> ------------

...
Oct 17 10:35:48 esw001tff2 [Root]Root login failure! Occurred 1 time. 
+(2012 17 10:35:48)
Oct 17 10:35:49 esw001tff2 [Root]Root login failure! Occurred 1 time. 
+(2012 17 10:35:49)
Oct 17 10:35:50 esw001tff2 [Root]IP Spoofing from 255.255.255.255 to 2
+55.255.255.255! Occurred 1 time. (2012 17 10:35:50)

DEVICE --> esw001tff2
DATE   --> Oct 17
...
ERROR  --> IP Spoofing from 255.255.255.255 to 255.255.255.255! Occurr
+ed 1 time.

The above error occurred 7 times

my %error_count;
my (@data = <DATA>, @list, @splitter);
...
    print "ERROR\t--> "$_\n";
    print "\nThe above error occurred $error_count{$_} times\n";
}