Select Code to Download

my @string = ('0110','1','11','01110','001','100','1111','01001110');

01110
111

foreach my $string (@string){
if(($string =~ m/1(?=[^1])/g)||($string =~ m/^0+$/g)){
...
}
else{print $string, "\n";}
}