print join ":", unpack 'C@0C/a*', $packed;