$_ = '1:2:3:::::';
my @a = split /:/;

print scalar @a; # prints 3