$\+=$_ for<>=~/./g;print