use Lingua::EN::Sentence qw( get_sentences add_acronyms );
 
add_acronyms('ed','eds');  # adding support for 'Ed. Eds.'
my $sentences = get_sentences($text);
for my $sentence (@$sentences) {
	# do something with $sentence
}