"slurpen" ist den ganzen Inhalt auf einmal einlesen. Mit dem @lines = <FILEHANDLE>; liest Du ja erst alles in ein Array ein und "klebst" alles mit join zusammen. Das ist unnötig...