open (DATEI,"satz_suche.txt" or die "Fehler: Datei 'satz_suche.txt' konnte nicht geöffnet werden.\nGrund $!");

while(<DATEI>)
{
print "$_\n";
s/txt/tones/g;
push(@tonesarray,$_);
s/tones/syllables/g;
push(@silbenarray,$_);
chomp(@silbenarray);

}