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