in reply to regex elegance contest - validate a pw

sub valid{
  local $_ = shift;
  return /\d/ && /[a-z]/ && /[A-Z]/ && /^.{5,8}$/ 
}

[download]

In Section Seekers of Perl Wisdom