> BLAH=$(perl -e 'for (@ARGV){s/(\d)(?=(\d{3})+(\D|$))/$1\,/g;print qq/$_\n/}' 12345678 876543210)
12,345,678
876,543,210

> echo $BLAH
12,345,678 876,543,210