Help for this page

Select Code to Download

Select or download this

while (<>) {
   chomp;
   $hash{$1}++ if /($\w+)/;
}
print map { "$_\n" } keys %hash;