$ perl -E'
   say "\x61";
   $x="\\x61"; say "$x";
   $x="\$x"; say "$x";
'
a
\x61
$x