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;