Oder kurz:
Chop() entfernt nicht nur einen Zeilenumbruch, sondern einfach das letzte Zeiten.

Code:
 perl -e '$_="Test"; chomp(); print $_,"\n";'
Code:
 perl -e '$_="Test"; chop(); print $_,"\n";'