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