sub could_be_a_host {
  my @a = split /\./, shift, -1;
  @a > 0 and
    not grep !/^[a-z0-9\-]+$/i, @a and
    not grep /^\d+$/, @a and
    not grep /^-|-$/, @a;
}