Just stuff it in an anonymous subroutine e.g

my $last_in_sentence = sub { $content_array[$location] =~ m/\. $/s };

if(&$last_in_sentence) { ... }
[download]

See. perlsub and perlref for more info.