Select Code to Download

my @bits = split ' ', $line;

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

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

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