file = glob ("*.zip");
foreach $file (@file){
           $zip = new Archive::Zip($file); 
           print "$file\n";
}

@file2 = qw (PIXX_SRV_LF5.LOG
            PIXX_SRV_LF5.LOG.1
            Datei.log 
           );
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();