http://www.perlmonks.org?node_id=764542


in reply to multiple file operations using perl one-liners

Safer and no longer:

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

Error checking (like a simple '-Mautodie' or 'or die "system: $?\n"') wouldn't hurt either.