Hi,

Dein Code tut falsches!
chop() entfernt das letzte Zeichen und liefert dieses zurück. Diese Rückgabe weist Du dann @txt zu.

Um den Zeilenumbruch einer Zeile zu entfernen, solltest Du chomp() verwenden (und dir die perldoc -f chomp und die perldoc -f chop ansehen).

Du hast vermutlich eine Zeile in $in stehen; die for-Schleife ist hier überflüssig.

Du solltest Dir Gedanken machen, wie der Ablauf sein sollte. Das geht auch ohne Perlkenntnisse. Wenn Du den Ablauf definiert hast, dann kannst Du daran gehen, den Ablauf in Code zu "giessen".

Es hilft jedenfalls nicht, Codebeispiele ahnungslos zusammenzukopieren und hoffen, dass es funktioniert....