print join ":", unpack 'CXC/a*', $packed;