$\+=~y///c&3for<>=~/([a-z]+)/g;print