#!/usr/bin/perl

use strict;
use warnings;

my $s;
my @arr;

open(FILE, "<test");

while(<FILE>) {
  chomp $_;
  $s .= $_;
}
@arr = $s =~ m/[A-Z].+?[.;]/g;
foreach (@arr) {
    print $_, "\n";
}
##</code><code>##

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["MM."];
Abbr["U."];
Abbr["Mr."];
Abbr["Jr."];
Abbr["Ms."];
Abbr["Mme."];
Abbr["Mrs."];
Abbr["Dr."];