Select Code to Download

my $str = "a,b,c,d,e";
my @n = split ',', $str;
print "There were " . ($#n+1) . " elements.\n";