perl '-pe$/=_;s##<>#ge;s/_//g'