sub split_simple_quiet { no warnings; my $n = scalar split ',', $str; #print "$n\n"; }