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