Evaluated proc asc2hb_getcs str {regexp -inline {^\d+,(\d+)(.+?)$} $str}