my @data = unpack 'C/a*', $packed;
print scalar @data, ':', join '|', @data;