> 1 while $size =~ s/(.*\d)(\d\d\d)/$1,$2/;

きえええええええええ(;´Д`)もっときれいに書いてえええええええ

参考：2006/05/22(月)21時37分27秒