while(my $file = ( , C<:/data/*.stderr> )) { # add all log files to zip file $file =~ s/C.*\///; $zip->addFile( $file ); } $zip->writeToFileNamed( $logname );