#!perl -p
s#{\d+}#$_=$&;y/1//<y/0//^1#e&&redo