my $s = '::';
my @fields;
for my $s ( '::', ':', '' ){
 for my $lim ( 0, -1 ){
  print "s=$s, limit=$lim\n";
  @fields = split( ':', $s, $lim );
  print "fields=".@fields."\n";
 }
}