Help for this page
fail() unless $password =~ /\d/; fail() unless $password =~ /[A-Za-z]/;
$password =~ /([-\\\/!*+@\s\w$.]/; # This is fine.
fail() unless $password =~ /^.+[^A-Za-z]./;