Length Size  Ratio  Name
  ------ ----  -----  ----
  1002KB 226KB 77.5%  M0511514944/file1
   474KB  91KB 80.8%  M0511514944/file2
   476KB  91KB 80.9%  M0511514944/file3
   113KB  92KB 18.5%  M0511514944/file4
  ------ ------ ----- ----
  2065KB 500KB 75.8%  4

#!/usr/bin/perl 

$out = `pkzipc test.zip`;
$start = 0;
$buf = '';
$Count = 0;
foreach $line (split /\n/, $out) {
	if ($line =~ /^\s*Length/) { $start = 1; }
	if ($start) {
($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6,$Fld7,$Fld8,$Fld9) = split(' ', $line, 9999);
if ($Fld1 =~ '------') { $Count = $Count + 1; }
                                           if ($Count =~ 2) {
                                                $Newline = printf ("%6s %5s %5s %-200s\n", $Fld1, $Fld2, $Fld3, $Fld4);
                                              }
                                           else {
                                                $Newline = printf ("%6s %5s %5s %-200s\n", $Fld1, $Fld3, $Fld4, $Fld9);
                                              }
		$buf .= ('COMMENT   ; ' . $Newline . "\n");
	}
}
open FILE, ">>file.txt" or die "cannot open file for writing";
print FILE $buf;
close FILE