String Zeilenweise durchlaufen

[Perl Anfänger]

Hi!

my $i;
for ($i = 0; $i < @stdin; $i++){

Ich glaub kaum jemand der in Perl programmiert, macht so eine Schleife.

:-)
ist das so schlimm? ^^

Es wäre interessant, was du genau machen willst.

ich möchte überprüfen ob WORT1 vorkommt, dann soll das WORT2 durch ein Komma getrennt angehängt werden - wenn das Wort WORT2 nicht gefunden wurde, soll am Ende WORT1 WORT2 angefügt werden.

Danke!