unpack("a4/A*", $_)