Select Code to Download

while (<DATA>) {
    my ($host,$comment)
...
        or die "failed to parse '$_'";
    $hosts{$host} = $comment//'';
}