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;