Select Code to Download

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

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