$ perl -wle 'my $v="\x22"; printf "\\x%x\n", ord($v);'
\x22