print if $_ eq uc $_;

##</code><code>##

print if $_ eq uc;