Okay, here is something I whipped up. Because I see a ",D" at the end of the first line, I added a bit to the regex I used... You may have to edit the regex depending what the entire line looks like.

#!c:/perl/bin/perl -w
use strict;

#Declare variables
use vars qw(%hash $key $value);

#Open the file with data in it
open FILE, "info.log";

#Create a hash of hashes of companies/files
while (<FILE>) {
$hash{$4}{$5}++ while (/(.*?),(.*?),(.*?),(.*?),(.*?),(.*?)+/g);
}

#Show the results
foreach my $company (keys %hash) {
    print "Company: $company\n";
    print "\t$key accessed $value times.\n" while (($key,$value) =  ea
+ch %{$hash{$company}});
    print "\n";
}
[download]

---

Update: If you hate regexes (or simply to be safer), you could always split. This would replace the one while loop with:

while (<FILE>) {
my @a = split /,/;
$hash{$a[3]}{$a[4]}++;
}
[download]