while (defined(my $line = $fh->getline())) { chomp($line); my $end_line = "[end.message]"; #if ($line =~ /$String/ && $line =~ /$end_line/) { if ($line =~ m/$String|$end_line/) { my $Zeile = $fh->input_line_number; my $read = $fh->read(my $buffer, 32*1024); open(LOG, ">>result.txt") or die $!; print LOG "$line $end_line,\n"; close LOG; } # if } # while $fh->close(); } } }