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

##</code><code>##

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

##</code><code>##

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