#!perl -p $_=join("",map{$v=ord pack("H2",$_);($v<32||$v>126)&&$v!=10?lc("\\x$_"):chr($v) eq"\n"?"\\n\n":chr($v)}split)