my $string = '00111100110';
$string =~ m/(1{1,}1)/;
print $string, "\t", $1, "\n";