c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{\000\005issueentrust.net};
 $s =~ s{ \A (.) (.) }{ sprintf '%d,%d,', ord($1), ord($2) }xmse;
 print qq{'$s'};
"
'0,5,issueentrust.net'