$tage=~s/(?<=\d)(?=(?:\d{3})+$)/./cg;