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