[Perl] 数字を三桁ずつカンマで区切る

数字を処理する上で、カンマ付きのにしたい場合にちょっと困る。
意外にもよく使うことが多いはず？
価格とかみたく文字列を処理して表示する場合には以下の方法でやればスムース？(・w・)

sub comma {
    my $num = shift;
    my ( $i, $j ) = '';
    if ($num =~ /^[-+]?dddd+/g) {
        for ($i = pos($num) - 3, $j = $num =~ /^[-+]/; $i < $j; $i -= 3) {
            substr($num, $i, 0) = ',';
        }
    }
}