my $nulls = $_;
$nulls  =~ /\0/g;
$nulls = length($nulls);

##</code><code>##

my $nulls = () = $_ =~ /\0/g;