Close to perfect, IMO, except that I'd add a test for empty lines, like this:

    my ($host,$ip) = split(/\s+/,$line,2) or next;
[download]