From 7419b9fc45ba291d5d10a9f5bea3fa5d33dfedc0 Mon Sep 17 00:00:00 2001
From: Yigit Sever
Date: Wed, 16 Sep 2020 15:22:27 +0300
Subject: move bin to .local/bin

---
 bin/sentences | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100755 bin/sentences

(limited to 'bin/sentences')

diff --git a/bin/sentences b/bin/sentences
deleted file mode 100755
index a02d061..0000000
--- a/bin/sentences
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/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";
-}
-- 
cgit v1.2.3-70-g09d2