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

#****************************
# Search String
#****************************
my $String = "strict";

#****************************
# Search over all ZIP Files 
#****************************
my @Zip_File = glob ("*.zip");
for my $Zip_File (@Zip_File){

#****************************
#
#****************************
my $zip = new Archive::Zip($Zip_File); 

#****************************
# Files to be read
#****************************
my @file2 = qw (Datei1.log PIXX_SRV_LF5.LOG);
for my $file2 (@file2){

#****************************
# Open Zip Archive for 
# reading Files
#****************************
my $fh  = new Archive::Zip::MemberRead($zip, $file2); 

#****************************
# Line number call for 
# Search String
#****************************
my $zeile = 0; 
while (defined(my $line = $fh->getline())) { 
    chomp($line); 
    ++$zeile; 
    if ($line =~ /$String/) { 
    print "Found in Line $zeile: $line\n in ZipFile $Zip_File File $file2\n\n"; 
    } 
   } 
  $fh->close(); 
 }
}