say for unpack "d*", $contents;