my $data = unpack 'C/a*', $packed;
print "'$data'";