neat_list

$newstring = DBI::neat_list(\@list, maxlength, delim)