in reply to Re: matching pattern question?
in thread matching pattern question?

I'm pretty sure I got it above with /^(0|1{3,})*1{3,}(0|1{3,})*$/. Does that work as you expect?

In Section Seekers of Perl Wisdom