C:\>perl -p -e"1 while s/^([01 ]*?)([01]*)-([-01]*)([-01 ]*)$/$1${2}0$3 ${2}1$3$4/"
000- 0101 011- 1-0-
0000 0001 0101 0110 0111 1000 1001 1100 1101