Evaluated proc ascii2map_line str {set out ""; set amap ""; set parts [split $str "\x03"]; foreach chunk $parts { set re [regexp -all -inline {^((\d+)(,(\d+))*)*(.+?)$} $chunk]; append amap " = [dfl [lindex $re 2] "."] [dfl [lindex $re 4] "."] [lindex $re 5] = "};. $amap}