String Zeilenweise durchlaufen

[Struppi]

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

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

:-)
ist das so schlimm? ^^

Ja.

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.

So?

  
#!/usr/bin/perl -w  
  
use strict;  
while(<DATA>) {  
chomp;  
my $line = $_ . ( /\bWORT1\b/  ? ', WORT2'  : 'WORT1 WORT2');  
print "$line\n";  
}  
__DATA__  
bla bla bla WORT1  
bla bla bla  
bla WORT1 bla bla  
bla WORT1bla bla  
bla bla bla  

Struppi.