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