# Schleifenkörper über Handle
my $span = undef;
while(<DATA>){
        my $x = [split];
        if($x->[0] eq 'vier'){ 
                # Ausdruck gefunden!, Anzahl der folgenden Zeilen in [1]
                $span = $. + $x->[1];
        }
        if(defined $span && $. <= $span){
                print $_;
        }
}

__END__
eins 1
zwei 2
drei 3
vier 4
fünf 5
sex 6
sieben 7
acht 8
neun 9
zehn 10