Select Code to Download

#!/usr/bin/perl -w
while (<>) {
    $COUNT{$_}++ for map lc, split /\W+/;
}
print "$_: $COUNT{$_}\n" for sort keys %COUNT;

#!/usr/bin/perl -w
@W = qw( hello world );
...
    $COUNT{$_}++ for grep { $_~~@W } map lc, split /\W+/;
}
print "$_: $COUNT{$_}\n" for sort keys %COUNT;