$_=<>; for$d(reverse 1..100){ exit!print$d if $_=~('…'x$d) }