Reply To: tcl help in reformating phone nubmer output

Just a tcl fragment.

Assume the number comes in as  1234567890

set ph [lindex $xlateInVals 0]

regsub — {(d{3})(d{3})(d{4})} $ph {(1)2-3} ph

set xlateOutVals