View Single Post
Old 06-19-2010, 05:09 PM   #15
rschlack
Junior Member
rschlack began at the beginning.
 
Posts: 4
Karma: 10
Join Date: Jun 2010
Device: Sony Reader pocket edition
I tried to do this in Word on OSX and it kept crashing. Such a bad product. For the more techie crowd, here is a perl script that will do the same thing.

my $file = shift;
open (FILE,$file);

while (<FILE>) {
chomp;
my $line = $_;
my $lc = substr($line,length($line)-1);

if (length($line) > 1) {
print $line;

if ($lc eq '.' || $lc eq '?' || $lc eq '"') {
print "\n\n";
} else {
print " ";
}
}

}
rschlack is offline   Reply With Quote