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

$String = "strict";  				#Such String

my @file2 = qw (PIXX_SRV_LF5.LOG
             PIXX_SRV_LF5.LOG.1
             Datei.log );#Verschieden Dateien im ZIP Archive
my @file = glob ("*.zip");
foreach my $file (@file){
  my $zip = new Archive::Zip($file); 
  print "$file\n";
    foreach my $file2 (@file2){
       my $fh  = new Archive::Zip::MemberRead($zip, $file2); 
       my $zeile = 0; 				
       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(); 
           } 
          } 
          print "$file2\n";
        } 
}#Liste der *.ZIP Dateien