$line =~ m{^
    \s* \d+              # size?
    \s+ \w+              # compression method
    \s+ \d+              # compressed size?
    \s+ \d+ %            # compression ratio
    \s+ \d+ - \d+ - \d+  # date
    \s+ \d+ : \d+        # time
    \s+ [0-9a-f]{8}      # checksum?
    \s+ (.*)             # filename
  $}xi or warn "Couldn't match input line '$line'";
  $filename = $1;