neat

$newstring = DBI::neat(string, maxlength)