Какие строки подпадают под (перловское) регулярное выражение /^(11+)\1+$/ ? Запустите perl -le 'for($a=2;$a<100;++$a) { (1x$a) =~ /^(11+)\1+$/ || print $a; }' и откроется вам.
