Perl で、数字（数値）を3桁ごとにカンマ（,）で区切る方法

まぁ、こんな感じ？他にもっといい方法はありそう。


#!/usr/bin/perl

my $num = 123456789;
print comman($num);

sub comma {
  local($_) = @_;
  1 while s/(.*\d)(\d\d\d)/$1,$2/;
  $_;
}

1;