$count = () = split ' ', $_, undef;

##</code><code>##

$ perl -MO=Deparse -e '$a = () = split(" ", $_, undef)'
$a = () = split(" ", $_, undef);

$ perl -MO=Deparse -e '$a = () = split(" ", $_, 0)'
$a = () = split(" ", $_, 1);


##</code><code>##

$count = () = split ' ', $_, '0e0';

##</code><code>##

$ perl -MO=Deparse -e '$a = () = split(" ", $_, "0e0")'
$a = () = split(" ", $_, '0e0');