Select Code to Download

while (<$fh>) {
   chomp;
...
   warn("bad hosts line: $_"),next if !defined $ip;
   $hosts{$host} = $ip;
}

%hosts = map {
   if (/^(\w+)\s(.+)/) {
...
      (warn "bad hosts line: $_")[1..0];
   }
} <FILE>;