use warnings; 
use diagnostics; 
use Archive::Zip; 
use Archive::Zip::MemberRead; 

$String = "strict";  				#Such String

@file = glob ("*.zip");
foreach $file (@file){
		$zip = new Archive::Zip($file); 
		print "$file\n";
		}					#Liste der *.ZIP Dateien
@file2 = qw (PIXX_SRV_LF5.LOG
             PIXX_SRV_LF5.LOG.1
             Datei.log 
            ); 					#Verschieden Dateien im ZIP Archive
foreach $file2 (@file2){
		$fh  = new Archive::Zip::MemberRead($zip, $file2); 
		$zeile = 0; 
		print "$file2\n";
		} 					
while (defined($line = $fh->getline())) { 
		chomp($line); 
		++$zeile; 
		if ($line =~ /$String/) { 
		print "Found in Line $zeile: $line\n in ZipFile $file File $file2\n"; 
		$fh->close(); 

    		} 
	}