perl -lpe 's/\#.*//; s/^\s+//; s/\s+$//; s/\s+/ /g; $_.="\t$." if $_' monster.pl |
  perl -lne '($c,$n)=split /\t/; push @{$h{$c}},$n;
    END { print join("\t",$_,
                     scalar @{$h{$c}},
                     join(",",@{$h{$_}}))
             for (sort keys %h)
        } > line.histogram