Kein g-modifier, du musst das \n am Ende von $sch entfernen, ansonsten sehe ich nicht, wieso deine 1. Lösung nicht funktionieren sollte.

Also einfach in deiner 1. Lösung aus:

folgendes machen:

Du kannst es auch so schreiben: chomp($sch = <STDIN>);

MfG

edit: my() entfernt\n\n

<!--EDIT|PerlProfi|1179146013-->