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