Perl: Nach dem Chomping eines Strings wird der Wert des Strings nicht gedruckt

Also, ich versuche gerade, ein Perl-Skript zu schreiben, das in eine Datei liest und in eine andere schreibt. Derzeit habe ich das Problem, neue Zeilenzeichen aus analysierten Zeilen zu entfernen. Ich füttere eine Datei ...

Erhabener Text kann gets.chomp nicht verstehen

Wie entferne ich führende und nachfolgende Nullen in einem String? Python