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