>perl -e"print qq{\x03\x1A}" | perl -le"print uc unpack 'H*', <STDIN>"
031A

$perl -e'print qq{\x03\x1A}' | perl -le'print uc unpack "H*", <STDIN>'
031A