Dittos to talexb, but I like scalar:

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