Пример

use DBI;

my @list = (' Bob', 'Joe', 'Frank');

my $neat_string = DBI::neat_list(\@list, 3);

# Теперь $neat_string такая: 'Bob', 'Joe', 'Fra...