数字を三桁ずつカンマで区切るメモ

価格などの数値を表示する場合によく使う処理ですな。

my $str = "-111111111111.1111";

sub commify {
    my $text = reverse($_[0]);
       $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
    return scalar(reverse($text));
}

print(commify($str));