正規表現で数値を３桁毎のカンマ区切り形式に変換（Perl編）

my $str;
$str = "12345678901234567";
$str =~ s/(\d)(?=(\d{3})+(?!\d))/$1,/g;
print $str;
//↓
//12,345,678,901,234,567
//になります。