tidy up sentences script

1 files changed, 10 insertions, 8 deletions

diff --git a/.local/bin/sentences b/.local/bin/sentences
index a02d061..75314f5 100755
--- a/.local/bin/sentences
+++ b/.local/bin/sentences
@@ -1,16 +1,18 @@
 #!/usr/bin/perl
 
 use strict;
-my $pont=qr{[.!?]+};                   ## pontuation
-my $abrev=qr{\b(?:Pr|Dr|Mr|[A-Z])\.};  ## abreviations
 
-$/="";
+my $pont = qr{[.!?]+};                  ## punctuation
+my $abrev = qr{\b(?:Pr|Dr|Mr|[A-Z])\.}; ## abbreviations
 
-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
+while(<>) {
+    chomp;                              ## for each paragraph,
 
-  print "$_\n\n";
+    s/\h*\n\h*/ /g;                     ## remove \n
+    s/($pont)\h+(\S)/$1\n$2/g;          ## punctuation+space
+    s/($abrev)\n/$1 /g;                 ## undo \n after abbreviations
+
+    print "$_\n";
 }