Select Code to Download

00 4d 00 61  00 67 00 6e - 00 65 00 74  00 00 00 00 [.M.a.g.n.e.t....]

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