du -b */*/old.zip | perl -F\\t -lane'system zip => "-d", $F[1], "*exe*"' #### du -b */*/old.zip | perl -ne'system zip => "-d", /\t(.*)/, "*exe*"'