Help for this page

Select Code to Download

Select or download this

for (@rec) {
    /(H\(\d+\))/ && do { push @{$count{$1}}, $_ }
...
        print "$_\n" for @{$count{$_}}
    }
}

Select or download this

/(H\(\d+\))/ && push(@{$count{$1}},$_."\n") for (@rec);
print map @{$count{$_}},grep $#{$count{$_}},keys %count;