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