$buf="\x00M\x00a\x00g\x00n\x00e\x00t\x00\x00\x00\x00" x 4;
my(@unpacked)= unpack "a16" x 4, $buf;