Help for this page
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>;