Perl : Comment afficher des "gros" chiffres avec un séparateur de milliers ?

Hummm quand il s'agit de lire des très grand chifres à l'écran, il n'est pas très pratique de devoir compter à la main sur l'écran les groupes de milliers...
Et donc un séprateur de millier prend tout son sens :
1'456'987 est plus lisible que 1456987 !
c'est ainsi que Perl devient votre petit à petit votre alié quotidien.
Car à l'aide des expressions régulières et de l'opérateur de substitution il est très facile d'obtenir l'effet escompté en 3 lignes !
En éxécutant le code ci-dessous on obtient .
My personal fortune is 1'234'567 US$

#!/usr/bin/perl -w
use strict;
my $test = "My personal fortune is 1234567 US\$";
print PrintStringWithThousandSeparator($test);

sub PrintStringWithThousandSeparator
{
my $Newtext = $_[0];
$Newtext =~ s/(?<=\d)(?=(?:\d\d\d)+(?!\d))/'/g;
return $Newtext;
}