my $n = '4123456789';
$n =~ s/(?<= \d )(?= (?:\d{2})* \d{3} $ )/,/gx;