if(($new_password !~ /\d/) || ($new_password !~ /[a-zA-Z]/) ||        
   ($new_password !~ /\W/) || (length($new_password) < 6)){
       ...BAD PASSWORD...
{