#!/usr/bin/perl

use strict;
use warnings;


my $line;
my $Error;
my $Data;
my $File  = "L:\\cybor\\20040831.log";
open FILE, $File || die "Can't open log file: $!";

while(<FILE>)
{
#  chomp;
	#@_=split(',');
  foreach $line (<FILE>) {
	  @_=split(',');
  $Data->{$_[1]}->{$_[3]}++;
  }
}

foreach my $User (sort keys %{$Data})
{
	print 'User: ',$User,"\n";
	foreach my $Error (sort keys %{$Data->{$User}})
	{
	print '  [',$Error,'] happened ',$Data->{$User}->{$Error},' time(s
+)',"\n";
	}
}


##</code><code>##

User: wfmccahi
  [P - Password Reset
] happened 172 time(s
+)