my @list = qw/foo bar buz qiz 1 2 3 one two three/;
my @filtered = grep /^\w+$/, @list;