print hex(c030), "\n";  # prints "49200"

##</code><code>##

$aschex.=uc(sprintf("%02x",ord($rawhex)));