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