Привет, Вот это у вас работает ? Интересуют перлы с тредами/без, 588, 589. perl -wle '(1 x $_) !~ /^(1{2,}?){2,}$/ && print while ++ $_' Ps у меня 589 с тредами на каренте свалился. -- Ivan B. Serezhkin Spamooborona, Yandex. http://so.yandex.ru/