$_ = join(',', split(/(?<=.)(?=(?:.{3})+\z)/, $_));