$_ =~ m[^([01]+)$] and print "$_:'$1'\n" for qw[ 0 1 00 11 10 01 012];
__DATA__
0:'0'
1:'1'
00:'00'
11:'11'
10:'10'
01:'01'