Select Code to Download

sub could_be_a_host {
  my @a = split /\./, shift, -1;
...
    not grep /^\d+$/, @a and
    not grep /^-|-$/, @a;
}

sub could_be_a_host {
  my @a = split /\./, shift, -1;
...
  }
  1;
}