$_ = "00001111"; print "$_\n" while (s/(1*)0(0*)1/$2${1}10/);