my $indata=0; my $innewvspresent=0; my $linesdiff=0; my $opdiff=0; while (<>) { if (/^BEGIN COMPARE DATA$/) { $indata=1; next ; } if (/^END COMPARE DATA$/) { $indata=0; next ; } if (/can't find CTAN directory for /) { $opdiff = -10; last; } if (!$indata) { next; } if (/^ new vs\. present /) { $innewvspresent=1; next; } if (/^CMP: [0-9]* common files, ~([0-9]*) lines different/) { $innewvspresent=0; $linesdiff = $1; last; } $opdiff++; #print if $indata; } print "files diff: $opdiff; linesdiff: $linesdiff\n";