I would probably just split on space and keeps the bits I needed:

my ( undef, undef, $key_num, undef, $size, undef, $key )
          = split /\s+/, $input;
[download]

There's probably something prettier, but I think that should work.

Phil