#!/usr/bin/perl -w

use Text::Wrap;

$Text::Wrap::columns = 40; # Spaltenbreite

$lines = join(' ', <>);    # Zeilen aller Dateien einlesen
$lines =~ s/\n(?!\n)//g;   # Einfache (!) Newlines entfernen

print Text::Wrap::wrap("", "", $lines), "\n";