Strictly speaking, there are more uppercase letters in this world than A-Z.  So with Unicode in mind, you might want to use

my $str = "foo Ä bar";

print "matched\n" if $str =~ /\p{Lu}/;
[download]

\p{Lu} stands for "property letter uppercase" — see perlunicode.