Shell Programming and Scripting

#!/usr/bin/perl

use feature qw/say/;
use strict;
use warnings;

my $s;
my @arr;

while(<>) {
  chomp $_;
  $s .= $_ . " ";
}
@arr = $s =~ m/[A-Z].+?[.;](?=[^.;][A-Z]|\s*$)/g;
foreach (@arr) {
    say;
}

Abbr["followed by the abbreviation];

Abbr["Co."];
Abbr["Corp."];
Abbr["vs."];
Abbr["e.g."];
Abbr["etc."];
Abbr["ex."];
Abbr["cf."];
Abbr["eg."];
Abbr["Jan."];
Abbr["Feb."];
Abbr["Mar."];
Abbr["Apr."];
Abbr["Jun."];
Abbr["Jul."];
Abbr["Aug."];
Abbr["Sep."];
Abbr["Sept."];
Abbr["Oct."];
Abbr["Nov."];
Abbr["Dec."];
Abbr["jan."];
Abbr["feb."];
Abbr["mar."];
Abbr["apr."];
Abbr["jun."];
Abbr["jul."];
Abbr["aug."];
Abbr["sep."];
Abbr["sept."];
Abbr["oct."];
Abbr["nov."];
Abbr["dec."];
Abbr["ed."];
Abbr["eds."];
Abbr["repr."];
Abbr["trans."];
Abbr["vol."];
Abbr["vols."];
Abbr["rev."];
Abbr["est."];
Abbr["b."];
Abbr["m."];
Abbr["bur."];
Abbr["d."];
Abbr["r."];
Abbr["M."];
Abbr["Dept."];
Abbr["Mr."];
Abbr["Jr."];
Abbr["Ms."];
Abbr["Mrs."];
Abbr["Dr."];

Mr. Smith said today is Jun. 15th.
Jones Inc. filed for bankruptcy.

awk '
function rindex(str,c)
{
  return match(str,"\\" c "[^" c "]*$")? RSTART : 0
}

function sentence_parse(text,sentences,quote,start,num,pos,last_word) {
   quote = (quote ? quote : "\"")
   start=num=1
   for(pos = 1; pos <= length(text) ; pos++) {
       char=substr(text, pos,1)
       if(start && char != " ") start=0
       if(!start) {
           sentences[num] = sentences[num] char
           if(char==quote) inquote=!inquote
           if (!inquote && char == ".") {
              last_word = substr(substr(text,1,pos), 1+rindex(substr(text,1,pos), " "))
              if(!(last_word in acro)) {
                  start=1
                  num++
              }
           }
        }
    }
}

NR==FNR{
 if($0 ~ "^Abbr\\[\"") {
     split($0,vals,"\"");
     acro[vals[2]]
 }
 next
}

{ 
   delete sen
   sentence_parse($0, sen)
   for(i=1; i<=length(sen) ; i++) print sen[i]
} ' acronyms.txt infile