Evaluated proc status domain { set ok [host $domain]; m [nlsplit $ok] {x {. }} }