for(;;){s/^(\d+)(\d{3}($|,))(.*)/$1,$2,$4/;$2||last}