@Zeilen = <DATEIINHALT>;
$line = join('', @Zeilen);