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();