my @bits = split ' ', $line;

##</code><code>##

$bits[3] =~ s/\.(\w+)$/$1/;

##</code><code>##

$count{$bits[3]}{$bits[4]}++;

##</code><code>##

foreach $type (keys %count) {
	foreach (keys %count{$type}) {
		print "$type $_ $count{$type}{$_}";
	}
}