Исправление arsi, 16.09.13 09:08 (текущая версия) :
perl -pe 's/(?<=[\w")])$/,/'
(\d входит в \w).
Исходная версия arsi, 16.09.13 09:07:
perl -pe 's/(?<=[\w)])$/,/'