Using highlight from my answer to Formatting text through pattern matching:
ToString[list] /. highlight["1, 0, 0", Style[#, Red] &]
Mr.Wizard
- 273.1k
- 34
- 595
- 1.4k