($id, @bytes) = unpack ("A16 x72 C*", $data);

##</code><code>##

($id, @dwords) = unpack ("A16 x72 (L<)*", $data);