Use the s/// substitution operator:

   $string =~ s/(?<=1)(0+)(?=1)/'1' x length($1)/eg;
[download]

Hope this helped.
CombatSquirrel.

---

Entropy is the tendency of everything going to hell.