Converting to a hex value is pretty easy:

perl -e '$_ = q(^%@|CaD5H); s/([^\w-])/sprintf qq(%lx), ord($1)/eg; pr
+int'
[download]

Doing the reverse will be a lot more tricky, unless you add a character to the start of each hex replacement to mark it out as such.