$s1 = '0000010000000100000100001';
$s1 =~ s/1(0+)1/'1'x((length($1)+2))/eg;