nicht angemeldet
Was hältst Du davon,
1. mit "chomp" den eingelesenen Zeilenumbruch explizit zu entfernen und
2. mit print DB ... "\n" selbst explizit wieder einen Zeilenumbruch abzuspeichern?
Soll sich doch Perl selbst damit befassen, aus wievielen Zeichen der Zeilenumbruch besteht ...