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