perl -e'system "zip", "-d", $_, "*exe*" for <*/*/old.zip>'