use strict;
my $str = "a,b,c,d,e";
my @n = split /,/, $str;
print scalar @n, "\n"