my $n =()= split ',', $str; #### my $n =()= split ',', $str, -1;