# 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