Evaluated proc cblock2map c {set r [regexp -inline {^(0*[0-9])(,(0*[0-9]))*(.+?)$} $c]; list [second $r] [fourth $r] [last $r]}