$content_array[$location] =~ m/\. $/s;

##</code><code>##

if ($content_array[$location] =~ m/\. $/s)

##</code><code>##

$last_in_sentence = ($content_array[$location] =~ m/\. $/s)

##</code><code>##

if ($last_in_sentence)

##</code><code>##

if (!($last_in_sentence)).