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) { ... }