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