my ($checked) = $submitted =~ m/^([a-zA-Z0-9])$/;
        if (!defined $checked){
          croak "Invalid name or  password.\n"
        }
      

##</code><code>##

/[a-zA-Z_0-9\(\)\[\]\{\}\+\=\-\\\/\*]{$MinPwLen,$MaxPwLen}/