binary s \x10\x19\x1f\x19\x11\x11\x10\x12\x19\x1d\x17\x14\x1e\x13\x15\x1b\x1d\x18\x14\x11\x15\x16\x1c\x15\x16\x13\x15\x16\x18\x18\x1c\x10 B* x puts [regsub -all 0*1(....)0*1(....) $x {\1\2 }]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).