Diese Arraylösung ist nicht tugendhaft. Hier eine paar bessere Ansätze:

• Übermut: Die Datei direkt mit Tie::File beackern, unter Zuhilfenahme vom Flip-Flop-Operator die Zeilen zwischen den Seperatoren entfernen.
• Ungeduld: Die Datei zeilenweise mit einem Iterator durchlaufen, unter Zuhilfenahme vom Flip-Flop-Operator die Zeilen zwischen den Seperatoren überspringen.
• Faulheit: die Datei als String betrachten und mit einem regulären Ausdruck den Bereich zwischen den Seperatoren herausschnippeln. perl -0777 -pe's{ ���������� }{}msx < input > output

PS: Das Wort wird quasi geschrieben.