#!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;