4 #############################################
5 # process a file, translating anything that
6 # might be an notes email address into internet
16 while (my $line = <>) {
18 my @ids = split(/\,/, $line);
24 if ($#ids > $maxgrp1) {
28 for (my $i=0;$i <= $#ids; $i++) {
29 my $id = $ids[$i] + 1 - 1;
33 foreach my $i (keys %hash) {
39 if ($#ids2 > $maxgrp2) {
49 print "maxgrp1=$maxgrp1\n";
50 print "maxgrp2=$maxgrp2\n";
51 print "culprit=$culprit\n";
52 print "culpritN=$culpritN\n";