$ perl -wle'
$num = shift;
$num =~ s/(\d{1,3})(?=(?:\d{3}))/$1\,/g;
print $num;' 12345678901
123,456,78,901