# jikken use utf8; utf8::decode($_=join'',<>); for$d(reverse 0..1000){ exit!print$d if /…{$d}/ }