$_ = "\000japh\njareh\000";
s/([^\040-\177])/sprintf "\\x{%02x}",ord($1)/eg;
print;

##</code><code>##

File: jargon-4.4.7.tar.gz   size = 9061260 bytes    0%  [H] Press 'h' for help
00000000:    1F 8B 08 00 3E 74 F0 3F 00 03 EC FD 07 3C 5C DF   ....>t.?.....<\.
00000010:    DF 2F 8A 8F 16 BD D7 28 51 93 E8 8C 3E 44 1B 7D   ./.....(Q...>D.}