Help for this page
/ ... ^0(0|1)*0$ # 0 .. anything .. 0 /x
my @tests = qw( 0 1 01 10 00 11 ... print "failed\n"; } }