if ((1 x $_) =~ m/^(11+)(\1)+$/)

##</code><code>##

if ((1 x $_) =~ m/^(11+){2,}$/)