use DBI;
my @list = (' Bob', 'Joe', 'Frank');
my $neat_string = DBI::neat_list(\@list, 3);
# Теперь $neat_string такая: 'Bob', 'Joe', 'Fra...