str {regsub -all {\d{1,2}(,\d{1,2})?} $str {}}