ls -l | perl -pe 'while(s/^((\S+\s+){4})(\d+)(\d{3})([^\d].*)?$/$1$3,$4$5/){}'
-rw-r--r-- 1 root wheel 16,596,907,252 24 Dec 2009 boskoop.disk0.bz2 -rw-r--r-- 1 grog wheel 4,173,914,809 20 Jul 2006 boskopp.tar.gz
-rw-r--r-- 1 dalke staff 3,236,397,056 Sep 13 2011 pubchem.fps -rw-r--r-- 1 dalke staff 712,181,172 Sep 13 2011 pubchem.fps.gz