*ehm* don't want to start a "perl gulf war", but one could have considered:

 $_ = $pw_candidate;

 die "weak password" if length < 8 and !/[A-Z]/ ...
[download]

Murat