#!/usr/bin/perl
#
# $Id: sen,v 1.2 1999/07/24 21:34:08 vogelke Exp $
#
# find end of sentences, add newlines.

while (<>) {
    chomp;
    s/\s*$//g;
    print "$_\n";
    print "\n" if /[\.\)!\?\"]$/;
}

exit(0);