#!/usr/bin/perl
# $Header$

use strict;

open SOURCE_FILE, "$ARGV[0]";
my @items = <SOURCE_FILE>;
my $i=0;
my $s;
my $state;

foreach $s (@items) {
#====================

  chomp ($s);
  $s =~ s/\r$//;  # arrange DOS end-of-line

  my $insideParagraph = $s =~ m/^.+$/;

  if ( $insideParagraph ) {
    if ( $state == "insideParagraph" ) { print " "; }
    $state = "insideParagraph";
    print $s;
  }
  else {
    if ( $state == "insideParagraph" ) { print "\n"; }
    $state = "outsideParagraph";
    print "\n";
  }
  $i++;
}