sub get_nsentences {
    my ($source_text, $n) = @_;

    my @sentences = split /\.\s*/, $source_text;
    $ret_text = (join '.', @sentences[0..$n-1]) . '.';

    return $ret_text;
}