c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $s = qq{\000\005issueentrust.net};
 my ($flag, $tag, $issuer) = unpack 'C C/a a*', $s;
 dd $flag, $tag, $issuer;
 my $t = sprintf '%-6s %s %s', $flag, $tag, $issuer;
 print qq{'$t'};
"
(0, "issue", "entrust.net")

'0      issue entrust.net'