du -b */*/old.zip | perl -ne 'chomp; my $f = (split /t/)[1]; system qq{zip -d $f "*exe*"}'