$ perl -wle 'my $v ="\x22"; my $vv = "\\x" . unpack( "h*", $v ); print $vv;'
\x22