Evaluated proc asc2hb_getcs str {set ok [regexp -inline {^\d+,(\d+)(.+?)$} $str]; return [list [second $ok] [string length [third $ok]]]}