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

##</code><code>##

$password =~ /([-\\\/!*+@\s\w$.]/; # This is fine.

##</code><code>##

fail() unless $password =~ /^.+[^A-Za-z]./;