blob: a02d061ecc0d05e6b6fe35a1ebf3ede0e7411b9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
use strict;
my $pont=qr{[.!?]+}; ## pontuation
my $abrev=qr{\b(?:Pr|Dr|Mr|[A-Z])\.}; ## abreviations
$/="";
while(<>){ chomp; ## for each paragraph,
s/\h*\n\h*/ /g; ## remove \n
s/($pont)\h+(\S)/$1\n$2/g; ## pontuation+space
s/($abrev)\n/$1 /g; ## undo \n after abreviations
print "$_\n\n";
}
|