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