if (($strTest & "\0\0\0\0\xff\0") eq "\0\0\0\0p\0") {