my $p = "X\x00Y"; system $^X, '-wE', "say '$p'";