#!perl.exe
my $file="infile.txt";  //stick infile in $contents
open (FILE, $file) or
    die "Can't open $file: $!\n";
select((select(FILE), $/ = undef)[0]);
my $contents = <FILE>;
close (FILE);

$contents =~ s/(\w)\r\n/($1) /mg; //attempt to fix wrapped 
                                  //sentences
open(OUTFILE, "<outfile.txt");     //stick result in outfile
print OUTFILE $contents;
close OUTFILE;

##</code><code>##

this is a
wrapped line.
"This is a wrapped
quote."
this first line is fine.
so is this one.

##</code><code>##

this is a wrapped line.
"This is a wrapped quote."
This first line is fine.
So is this one.