#!perl -w # # A simple text unwrapper by Dmitry Ogarkov # http://ogarkov.com # # Converts this: # # aaa bb cccc dddd eee fff ggg # hh iiiii jj kkkk lll mmm nn # # oooo ppp qqq rrr sss tt uuu # vvv wwwww xxxx yy zzz # # into this: # # aaa bb cccc dddd eee fff ggg hh iiiii jj kkkk lll mmm nn # # oooo ppp qqq rrr sss tt uuu vvv wwwww xxxx yy zzz # # Usage: # # unwrap.pl # $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 () { chop; if ($_ eq "") { print OUT "\n\n"; $spacer = ""; } else { print OUT $spacer; print OUT $_; $spacer = " "; } } print OUT "\n"; close (OUT); close (IN);