open my $fh, $filename or die "$filename: $!"; # gesamten Dateiinhalt in einen Skalar lesen my $content = do { local $/; <$fh> }; close $fh or die "$filename: $!"; # Kombination von Zeilenumbruch+Leerzeichen durch nichts ersetzen $content =~ s/\n //sg;