Help for this page
@list = grep( &keep_me, @list);
>perl -wMstrict -le "sub keep_me { return m{ [[:upper:]] }xms; } ... print qq{@list}; " K E E P