in reply to regex elegance contest - validate a pw

One immediate reaction is that if you are after secure passwords and provide an example then you will need to add this to your code: 
if ( $password eq '12Three' ) {
  warn "ALERT: unimaginative user detected, take evasive action";
}

[download]

--tidiness is the memory loss of environmental mnemonics

In Section Seekers of Perl Wisdom