Alguém tem uma expressão regular à mão que corresponda a qualquer nome de host DNS ou endereço IP?

É fácil escrever um que funcione 95% do tempo, mas espero conseguir algo que seja bem testado para corresponder exatamente às mais recentes especificações RFC para nomes de host DNS.