unpack "d<*", $contents
or
unpack "d>*", $contents