set a { "522" ,"-1" ,"12345678" ,"12345678" ,"Completed" ,"" ,"" ,"" ,"height 5' 5" and weight 170lbs"," "," "," 9876543 "," ABCD"," 2016 -06-12T23:54 :00-05:00"," 2016 -06-12T23:59 :00-05:00"}
set result [regsub -all {([^,])" ( ? =[ ^,] ) } $a "\\ 1" ]
puts $result
c2V0IGEgeyI1MjIiLCItMSIsIjEyMzQ1Njc4IiwiMTIzNDU2NzgiLCJDb21wbGV0ZWQiLCIiLCIiLCIiLCJoZWlnaHQgNScgNSIgYW5kIHdlaWdodCAxNzBsYnMiLCIiLCIiLCI5ODc2NTQzIiwiQUJDRCIsIjIwMTYtMDYtMTJUMjM6NTQ6MDAtMDU6MDAiLCIyMDE2LTA2LTEyVDIzOjU5OjAwLTA1OjAwIn0Kc2V0IHJlc3VsdCBbcmVnc3ViIC1hbGwgeyhbXixdKSIoPz1bXixdKX0gJGEgIlxcMSJdCnB1dHMgJHJlc3VsdA==
stdout
"522","-1","12345678","12345678","Completed","","","","height 5' 5 and weight 170lbs","","","9876543","ABCD","2016-06-12T23:54:00-05:00","2016-06-12T23:59:00-05:00"