perl -e 'foreach (@ARGV) {print "$_\n" if $_ eq uc $_}'