Help for this page

Select Code to Download


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