$\=1;$\=$\*2+/R/for<>=~/./g;print