Is that the solution or it can be done easier?

$string="UUUUUUUUUUUUUUUUUU";

if ($string=~/U+/ && $string =~ m/[^ABCDEFGHIJKLMNOPQRSTVWXYZ]/){
    print "FOUND\n";
}
[download]