for(1..100){push@_,$_ if (1 x $_) !~ /^1?$|^(11+?)\1+$/}