:
s/\([^,]\)\(...\($\|,\)\)/\1,\2/
t