#!/usr/bin/perl -p
s/^ +//; s/\n$//;
$d = /./;
$c and $d and print " ";
$c = $d;
$d or print "\n";
END {print "\n"}