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

0:'0'
1:'1'
00:'0'
11:'1'
10:'0'
01:'1'