Thanks, the response were helpful. After farting around with it some more, I came up with

my @lines = split (/\n/);
for my $line(@lines)
{
[download]

which is pretty much your implementation. Thanks! Desert coder