use warnings;
use strict;
use Test::More;

sub my_sentence_splitter {
	my $input = shift;
	my @output;
	# ... magic ...
	return \@output;
}

is_deeply my_sentence_splitter(<<END),
I'm looking for the end of a sentence, where possible.  However, in some cases, I'll need to go with a non-conventional "end" to it, such as: "Here's a quote by a famous person which is supposed to exceed forty words and is therefore required to be set apart as a separate, indented paragraph per APA style." (Famous, 1999) Note that the regex needs to look for the full end of the sentence, if it exists: it cannot simply stop at the colon unless there is no further part to the sentence provided in that paragraph.
END
[
	q#I'm looking for the end of a sentence, where possible.#,
	q#However, in some cases, I'll need to go with a non-conventional "end" to it, such as:#,
	q#"Here's a quote by a famous person which is supposed to exceed forty words and is therefore required to be set apart as a separate, indented paragraph per APA style."#,
	q#(Famous, 1999)#,
	q#Note that the regex needs to look for the full end of the sentence, if it exists: it cannot simply stop at the colon unless there is no further part to the sentence provided in that paragraph.#,
];

# TODO: Many more test cases here!

done_testing;