# $str defined elsewhere 
$str =~ s/\A
    (.{0,17})
    (.*)       # Normal rules about .* don't apply--we 
               # really do need everything that's left
\z/$1(?($2) \. \. \.)/x;