$t=s/ｗ//g,/./&&push@{$_[$t]},$_.$/for<>=~/.*?(?:ｗ)+/g;print@{pop@_}