if($string =~ /([01]*111[01]*)/){
    print "$string\n"
}
#output
#01110
#1111
#01001110