parsewhatlog.pl - put back in the regex 1-liner what got taken out (multiple 'master' repos out of sync)
#!perl -w
use strict;
my @includefiles = glob "*_includefile.txt";
foreach (@includefiles)
{
my $includefilename=$_;
if (m/(.*)(_includefile.txt)/) {
my $zipfilename = $1.".zip";
system("7za a -tzip -i@".$includefilename . " " .$zipfilename);
}
}