i had some time, and just for fun i optimized the above RE: this is faster by avoiding alot of backtracking.

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

Oha