String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

$id = ....

^diese Zeile gehört wohl nicht hin...

die ID wird über mehrere Zeilen ermittelt, ich wollte das mit ... etwas kürzen

$_ = chomp($_).",WORT2\n" if($_ =~ /^[1]*[^#]?\WORT1\b/ and $check = 1);
........................................................................^
Das ist hier eine Wertzuweisung, keine Überprüfung/Vergleich (==).

wenn ich daraus ein vergleich machen würde, würde die Bedingung nie Wahr werden.
Wenn der Ausdruck gefunden wurde, setze ich den Wert der Variable auf 1, damit nach der Schleife, die Zeile nicht angefügt wird

Danke!

---

1. \t ↩︎