perl -e 'while (<>) { chop; system qq{zip -d "$_" "*exe*"} }' oldfiles