while ($_ =~/\0/g) {$nulls++}