#!/usr/bin/perl -w

use strict;
use Text::Sentence qw/split_sentences/;
use locale;
use POSIX qw/locale_h/;

setlocale(LC_CTYPE,'iso_8859_1');

my $a = "This is some text.
A period (\".\") usually terminates a statement.
But not if it's quoted.
Regardless of whether or not single quotes, '.', are used.
";

my @sentences = split_sentences($a);

for my $i (0..$#sentences) { print "sentence #$i: <$sentences[$i]>\n";
+ }
[download]

sentence #0: <This is some text.>
sentence #1: <A period (".") usually terminates a statement.>
sentence #2: <But not if it's quoted.>
sentence #3: <Regardless of whether or not single quotes, '.', are use
+d.>
[download]