my $sentence = ...;
if ($sentence eq uc $sentence) { ... }