#!perl -p
s/{}/1/while s;01|10|{(.)\1*};$1