Select Code to Download

# given @words and @exclude
my %seen;
...
@words = grep {
    (! /\W/) and (length() >= 4) and ($seen{$_}++ == 0)
} @words;