Evaluated proc tlda host { if {[regexp {(not found\.|No match for|NOT FOUND)} [whois $host]]} {return 0} {return 1} }