if ( $password =~ tr/A-Za-z0-9//c ) {
    warn "Bad characters in <$password>\n";
}