#!/usr/local/bin/perl -w -l
#
#
use strict;   # Dadurch muss man jetzt my einfügen, Deklaration von Variablen
use POSIX;   # Erweiterte mathematische Funktionen

my @array;
my $suche1 = "suchstelle1";
my $suche2 = "suchstelle2";
open(IN, "<$ARGV[0]") || die "die Datei $_[1]nicht gefunden\n";
while(<IN>) {
if ($_=~ $suche1) {
    open(OUT, ">out.txt");
    while(<IN>) 
    {    
    if ($_=~ $suche2) { goto LOOP }   
    }
                 }
 }
 LOOP:do
close(OUT);
close(IN);