Re: limit the list

[Steven Lembark]

my ($i, $total);
($total += length) < 90 ? $i++ : last for @ARGV;
$str = join ', ', @ARGV[0 .. $i];
$str .= ', etc' if $i < $#ARGV;

my $a = substr join( ',', @namz ), 0, 89;
$a .= ',etc...' if length $a == 90;


--
Steven Lembark                               2930 W. Palmer
Workhorse Computing                       Chicago, IL 60647
                                           +1 800 762 1582