1 while s/(?<!1)01(?!0)//g;
  length($_) == 0;