@list = qw(one two three four);
@nofour = grep {[/a-z/]{4}} @list;
print "@nofour";