Hard to say from the data you've posted, but if the data is delimited by whitespace, you can use split ' ', eg.::

...
my @fields = (split ' ', $line)[1,3,4,5,7];
...
[download]