#!/usr/local/bin/perl
# sentence count
# really just counts periods semi-intelligently
$debug=0;
$count=0;
while(<>) {
    s/\.\w+/0/g; # A period followed by a letter/number doesn't end sentence
    s/\b(mr|mrs|ms|dr|etc)\./$1/ig; # abbreviations - this could be added to
    s/\.+/./g; # ellipses.....
    $count += (s/\.(\W|$)/##/g);
    print if ($debug);
}
print "$count\n";