#!/usr/bin/perl
use strict;
use warnings;
my $a = "0000001111000010000001111110";
if($a=~/^[01]{8}/ and $a!~/^0{8}/)
{ print "gematched\n"; }