String Zeilenweise durchlaufen

[Struppi]

my $line = $_ . ( /\bWORT1\b/  ? ', WORT2'  : 'WORT1 WORT2');

Die Zeichenkette »WORT1 WORT2« soll nur dann _am Ende der gesamten Eingabe_ hinzugefügt werden sollen, wenn in keiner Zeile »WORT1« vorkommt.

In keiner oder nicht in der Aktuellen?

Wenn aber »WORT1« vorkommt, soll(en) die jeweilige(n) Zeile(n) durch », WORT2« ergänzt werden.

Das macht die Zeile

Struppi.