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"; }

--tidiness is the memory loss of environmental mnemonics