$$_++for<>=~/./g;print--$c<$w?$c:$w