#!/usr/bin/perl -w
use strict;
my $str = "a,b,c,d,e";
my $n = split ',', $str;
print "$n\n";
	

Use of implicit split to @_ is deprecated at H:\dev\perl\perlmonks\split-it.pl line 4.
5

##</code><code>##

my @n = split ',', $str;
$n = @n;
print "$n\n";

$n =  @{[ split ',', $str ]};
print "$n\n";