Using `highlight` from my answer to http://mathematica.stackexchange.com/questions/7008/formatting-text-through-pattern-matching/7011#7011:

    ToString[list] /. highlight["1, 0, 0", Style[#, Red] &]

![enter image description here][1]


  [1]: https://i.sstatic.net/5skcB.png