Select Code to Download

system( 'unzip', $ZIP, '-d', $TMP );  # instead of 'system "unzip $ZIP
+ -d $TMP"'

$ZIP =~ s/([^\w.-])/\\$1/g;
for $BADFILE ( @BADFILES ) {
...
      $RESULT = `zip -d $ZIP $BADFILE`;
      print $RESULT;
   } ...