<>=~/w(?{$%+=$w,$w+=$`=~y,c,,})^/g;print$%