renee+2008-12-06 14:01:02--

Code (perl): (dl )

1
2
3

my $var  = '5,10';
$var =~ tr/,/./;
print $var;

 $num =~ s/(\d{1,3})(?=(?:\d{3}))/$1\,/g