my ($ver, $hlen, $tos, $len) = map pack "B*", unpack "A4A4A8A16", unpack "B*", $foo;