Select Code to Download

$_ = reverse(join(',', reverse($_) =~ /.{1,3}/g));

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

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