2006/05/22 (月) 21:37:27
◆
▼
◇
[qwerty]
1 while $size =~ s/(.*\d)(\d\d\d)/$1,$2/;