use utf8; utf8::decode($_=<>); for$d(reverse 0..100){ exit!print$d if $_=~('…'x$d) }