$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;