>perl -wMstrict -le
"sub keep_me { return m{ [[:upper:]] }xms; }
 ;;
 my @list = qw(a b K d E f g h E P m e);
 @list = grep &keep_me, @list;
 print qq{@list};
"
K E E P