Select Code to Download

#!/usr/bin/perl -w
use strict;
...

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

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