#!/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"; }