use strict;
use warnings;

my @words = qw ( a ants cats cats dogs DOGS rabbits r@bbits turtles warthogs );
my @exclude = qw ( ants Turtles WARTHOGS );

my %exclude = map { lc $_ => '1' } @exclude;

for ( @words ) {
   next if /\W/
        or length $_ < 4
        or $exclude{lc $_}++;
   print "$_\n";
}