fail() unless $password =~ /\d/; 
fail() unless $password =~ /[A-Za-z]/;