$_ =~ s/(?<=.)(?=(?:.{3})+\z)/,/g;