1 files changed, 16 insertions, 0 deletions

diff --git a/bin/sentences b/bin/sentences
new file mode 100755
index 0000000..a02d061
--- /dev/null
+++ b/bin/sentences
@@ -0,0 +1,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";
+}