in reply to print only uppercase sentences

1. read rjt's very useful links

2. one solution is: 
my $sentence = ...;
if ($sentence eq uc $sentence) { ... }

[download]

In Section Seekers of Perl Wisdom