binary s  B* x
puts [regsub -all 0*1(....)0*1(....) $x {\1\2 }]