print if $_ eq uc $_;