neat_list

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