@l=split//,<>;s/_/shift@l/ge,print for<>