regex /[^A-Z]{3,}/)

[Winston]

..
..
while ($name =~ /[^A-Z]{3,9}/) {
print "Invalid, try again: ";
chop($name = uc <STDIN>);
}

Of course that is wrong.

The user must try again if this is true: $name =~ /[^A-Z]/
and this is false: $name =~ /.*{3,9}/

 

[Paul Lalli]

.
.
while ($name =~ /[^A-Z]{3,9}/) {

This is "true" if $name contains 3 or more characters, in sequence,
which are not capital letters. Is that what you meant?

print "Invalid, try again: ";
chop($name = uc <STDIN>);

You want chomp, not chop

}

Of course that is wrong.

Which "that" is wrong, and how is it wrong?

The user must try again if this is true: $name =~ /[^A-Z]/

Now that says that $name contains ANY character that's not a capital
letter. So you're saying $name is invalid if it contains anything
other than capitals?

and this is false: $name =~ /.*{3,9}/

This is meaningless. You can't have a {m,n} quantifier following a *
quantifier. It doesn't make any sense.

Please show example input and output that demonstrates exactly what it
is you're trying to do.

Paul Lalli