Select Code to Download

   foreach (<LOGFILE>) {
      @fields = split '*', $_;
...
      # ... blah, blah, blah ...

   }

   %company_count;

...
   foreach (sort keys %company_count) {
      print $_, " showed up ", $company_count{$_}, " times\n";
   }