Hallo,

kann mir jemand diese Zeilen kommentieren?
Ich versuch mit folgendem Code die Zeilen zu kopieren und teilweise zu ersetzen wie in meinem letzten Beitag angefragt - ich komm nicht weiter...

open(DATA,"file01.txt");
@satz = <DATA>;
close(DATA);

foreach (@satz)
{
$t= split(/ /,$_);
print "$t\n";
$t =~ s/&/TOLL/;
print "$t\n";
}