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