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