#!perl -w
#
# A simple text unwrapper by Dmitry Ogarkov
# http://ogarkov.com
#
# Converts this:
#
# aaa bb cccc dddd eee fff ggg<crlf>
# hh iiiii jj kkkk lll mmm nn<crlf>
# <crlf>
# oooo ppp qqq rrr sss tt uuu<crlf>
# vvv wwwww xxxx yy zzz<crlf>
#
# into this:
#
# aaa bb cccc dddd eee fff ggg hh iiiii jj kkkk lll mmm nn<crlf>
# <crlf>
# oooo ppp qqq rrr sss tt uuu vvv wwwww xxxx yy zzz<crlf>
#
# Usage:
#
# unwrap.pl <input_file> <output_file>
#

$input_file = shift;
$output_file = shift;

open (IN, "$input_file") || die ("Could not open input file.");
open (OUT, ">$output_file") || die ("Could not open output file.");

$spacer = "";

while (<IN>) {
    chop;

    if ($_ eq "") {
         print OUT "\n\n";
         $spacer = "";
    }

    else {
         print OUT $spacer;
         print OUT $_;
         $spacer = " ";
    }
}

print OUT "\n";

close (OUT);
close (IN);
                                                   