3桁毎カンマ区切り

　数字を3桁毎に区切るにはsを使います。

$a = '1234567890';
1 while $a =~ s/(.*\d)(\d\d\d)/$1,$2/;

とやると、$a には 1,234,567,890 が入ります。