my $nulls = $string =~ tr[\0][\0];