$_ = $pw_candidate;

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