#****************************
# Line number call for 
# Search String
#****************************
my @suche = "";
my $pointer = '1';
#
while (defined(my $line = $fh->getline())) { 
       chomp($line);
       #
       $suche [$pointer] = $line; 
       #
       if ($line =~ /^$String/) { 
           my $Zeile = $fh->input_line_number;
           my $read = $fh->read(my $buffer, 32*1024);
           my $string_before = $pointer+1;
	   #
           if ( $string_before == '25' ) {
	        $string_before = '1';
	     }
             #
             open(LOG, ">>result_10.txt") or die $!;
             open(LOG2, ">>result_11.txt") or die $!;
	     #
             my $ii = $string_before;
             for (my $i =1; $i <= 25; $i++){
             print LOG "$suche[$ii]\n";
             $ii++;
             if ( $ii == '25' ) {
                  $ii = 0;
                }
             }
             #
             print LOG2 "\nFound Message = $String\nin ZipFile = $Zip_File\nLogfile = $fh2\n";
             close LOG;
             close LOG2
             } # if
             $pointer++;
             if ( $pointer == '25' ) {
                  $pointer = 1;
                }
            } # while
            $fh->close();
         }
        }
       }
#
#
#****************************
# End of Script
#****************************