e4 99 68 f8 41 ==> e4 99 68 f8 41 00 00 00
40 ==> 40 00 00 00
2a 2e ==> 2a 2e 00 00

##</code><code>##

$Origin_Host_CER="example.me";
$Origin_Host_CER =~ s/(.)/sprintf '%02x', ord $1/seg;       
print "STX2HEX: $Origin_Host_CER\n\n";
print length($Origin_Host_CER)/2;