$string="UUUUUUUUUUUUUUUUUU";

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