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