s/.//,eval"y/0-$&/1-$&0/",print$&for(<>)x$$