naja ne einfache regex tuts auch
$inhalt =~ s:\n:\r\n:g
kannst auch zeilenweise einlesen und letztes zeichen umfandeln aber erste lösung sollte reichen.