for (0..4)
{
<STDIN>;
}

while(<>) {
    next unless /MUSTER/;
    # ...
}

#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $suchmuster = 'MUSTER';
my $zeilen_ueberspringen = 5;
my $datei = '/pfad/zur/datei.txt';

tie my @array,'Tie::File', $datei or die $!;
my @index = grep{/$suchmuster/}(0..$#array);
for my $ind(@index){
   print $array[$ind+$zeilen_ueberspringen];
}
untie @array;

my @index = grep{/$suchmuster/}(0..$#array);

my @index = grep{$array[$_] =~ /$suchmuster/}(0..$#array);

open FILE ...#Datei aus der ich die Daten haben will
open DATEI .. #Datei in die neue reingeschrieben werden sollen
@lines=<FILE>;
foreach my $line (@lines) {
    if ($line =~m/^TEXT$/) {
    for (0..7) {
    <fh>; #will gern die 8. Zeile einlesen
    @lin=<fh>;
    print DATEI "@lin\n"; }  #soll die Zeile in die andere Datei schreiben
    }
    }
close DATEI;
close FILE;

open FILE ...#Datei aus der ich die Daten haben will
open DATEI .. #Datei in die neue reingeschrieben werden sollen
my @lines=<FILE>;
foreach my $ind(0..$#lines) {
   if ($lines[$ind] =~m/^TEXT$/) {
     print DATEI $lines[$ind+8],"\n";  #soll die Zeile in die andere Datei schreiben
   }
}
close DATEI;
close FILE;