String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

Die Zeile soll durch WORT1 WORT2 erstezt werden, wenn nichts
  gefunden wurde.
     leider nein, diese Zeile soll am Ende eingefügt werden,
     wenn vorher keine Zeile mit WORT1 gefunden wurde

stimmt, WORT1 WORT2 soll ganz am Ende als eine neue Zeile hinzugefügt werden, wenn Wort1 nicht gefunden wurde

Danke