if ( $newpasswd !~ /^[A-Za-z0-9]+$/ ) { # blah }