$s = '00111100110';;

$s =~ s[(1+)]['2' x length $1]e;;

print $s;;
00222200110