$_=<>;0while s/(.*\d)(\d{3}.*)$/\1,\2/;print