you could handle an entire word useing this: var %x $strip($1) { var %b 1,%y | while (%b >= $len(%x)) { %y = $addtok(%x,$iif(%b == 1,$+(binaryof,$left(%x,1),is,$base($left(%x,1),10,2)),$+(binaryof,$left($mid(%x,%b),1),is,$base($left($mid(%x,%b),1))) | inc %b } | msg $chan Text: $+(%x,$chr(44)) $replacecs(%y,$chr(95),$chr(32)) } }