next if ($line !~ /^Summary/);
      
      my @tmpFields = split (/\(?(\d+)\*(\w+)\)/, $line);

      my @tfields = grep {!/\s+/} @tmpFields; 

      my %hFields = @tfields;