#!C:/perl/bin -w
# sentence.pl
use strict;
use vars qw( $sentence @sentence );

while ( <DATA> ) {

   print "\n<$_>\n\n";

   @sentence = split /\.{1,4}\s+/, $_;
      # push @sentences, $first;

   for $sentence( @sentence ) {
      print "\t-$sentence-\n";
   }
}


__DATA__
This is a sentence. This is another.  There were two spaces before this sentence.
This is the first and only sentence of a new paragraph... but it's a long one.
This sentence has commas, thusly, and, for good measure -- dashes -- thusly.
End of test data.

##</code><code>##

-This is a sentence.-
-This is another.-
-There were two spaces before this sentence.-
-This is the first and only sentence of a new paragraph.-
-but it's a long one.-
-This sentence has commas, thusly, and, for good measure -- dashes -- thusly.-
-End of test data.-

##</code><code>##

-This is a sentence.-
-This is another.-
-There were two spaces before this sentence.-
-This is the first and only sentence of a new paragraph.-
-but it's a long one.-
-This sentence has commas, thusly, and, for good measure -- dashes -- thusly.-
-End of simple test data.-
-Begin simple data with html entities.<br>
.-
-This is a sentence separated from the following sentence by two spaces, one of them an html entity.-
-&nbsp;And this is another.-
-While this might appear at the end of a paragraph.&lt;/p&gt;
.-
-&lt;p&gt;And so on.&lt;/p&gt;
.-