@a=<>=~/./g;s/_/shift@a/ge,print for<>