$ perl -Mre=debug -e 'qr/0+|1+/;
Final program:
   1: BRANCH (5)
   2:   PLUS (9)
   3:     EXACT <0> (0)
   5: BRANCH (FAIL)
   6:   PLUS (9)
   7:     EXACT <1> (0)
   9: END (0)
minlen 1