$perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
Категорії
Записки молодого админа
Самостоятельная подготовка к Cisco CCNA
Самостоятельная подготовка к Cisco CCNP
$perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'