Select Code to Download

foreach $_(@TMP) {
            if ($_ =~ /^([\w.]+)$/) {
...
                next;
            }
        }

foreach (@tmp) {
  push @hosts, $1 if /^([\w.]+)$/;
}