od -c file

##</code><code>##

perl -ple's/\\/\\\\/g; s/([^\x21-\x7E])/sprintf(qq{\\x{%X}}, ord($1))/eg;' file