$string .= '.' if $string !~ /[.!?]$/;

##</code><code>##

@array = map ucfirst, @array;