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