if ($filename_new =~ m/\+/ ) { $filename_new = $bugfixzip; my $bugfixzip = $SOURCE_DIR."/"."bugfixfiles.zip"; print "Zipping files with + sign in filename\n"; system("zip ${bugfixzip} ${filename_new}"); print "copy $bugfixzip","$WORK_DIR/$project/$version/$lang/us_source/$bugfixzip\n"; copy ("$bugfixzip","$WORK_DIR/$project/$version/$lang/us_source/bugfixfiles.zip"); system("unzip $WORK_DIR/$project/$version/$lang/us_source/bugfixfiles.zip $WORK_DIR/$project/$version/$lang/us_source/"); }