Perl 数字に三桁ごとのカンマを挿入する

金額表示など、数字に三桁ごとに区切りのカンマを挿入したいケースは良くあります。Perlではこれを1行の正規表現だけで実現することができます。

my $price = 12345;
$price =~ s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g;
print "販売価格 = " . $price . " 円\n";

上記のコードを実行すると、次のようにカンマが挿入されます。

販売価格 = 12,345 円