清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

(1 x ++$_) =~ /^1?$|^(11+?)\1+$/ || print "$_\n" while $_ < 1000