Perl - Separador de Miles

Hola, soy novato en Perl.

Tengo la siguiente variable:

$a = "4123458674";

y quiero obtener esto:

$a = "4,123,458,674";

¿Como lo puedo lograr?

Muchas gracias.

busca dentro del foro porque tu pregunta ya fue respondida en otra oportunidad (¿enero 2005?)

Ya pude resolver mi problema, este es el codigo:

#!/usr/bin/perl
use Data::Dumper;

chomp($ARGV[0]);
$num_in = $ARGV[0];
print "El Numero que quiero procesar es: $num_in\n";

$num = '0'x(3 - (length($num_in) % 3)).$num_in;
@VALORES = split(/(...)/, $num);

foreach $valores (@VALORES){
next if (($valores eq undef)||($valores == 000));
$result .= "\,$valores";
}
$result =~ s/^\,+//g;
$result =~ s/^0+//g;

print "-->$result<--\n";

Gracias.