mettere la virgola

[shishii]

sub separa {
my $num = shift;
my $text = reverse $num;
$text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1\./g;
return scalar reverse $text;
}
$numero = &separa(40000);