$ perl -E'$_="a"; $r=$ARGV[0]; s/a/$r/; say;' '\x41'
\x41

$ perl -E'$_="a"; $r="\\x41"; s/a/$r/; say;'
\x41