if ( $User =~ /^[a-z0-9]+$/i ) { # Allowed }