If you were able to use modules, i would suggest Archive::Zip. But here is a non-module solution:

$line =~ s/^\s+//g;                             # strip leading whites
+pace
$line =~ s/\s+$//g;                             # strip trailing white
+space
my @cols = split(/ +/, $line);                  # split on spaces
my $filename = join(' ', splice(@lines, 7) );   # piece back together 
+the filename
push @temp, $filename;                          # store filename
[download]

Could possibly try a fixed-width solution, but i'd be worried that it wouldn't work if the first or third columns varied too much in size.

Update: I think i overthought a little and forgot about the LIMIT parameter to split() -- probably better than breaking and re-gluing the filename.