3桁ごとにカンマを付加する

数値に３桁のカンマを付加する場面は多くあるかと思います。
下記のサンプルでは正規表現と while ループを使用して変数に格納されている数値に３桁ごとのカンマを付加します。 サンプルでは $num を使用していますが、任意の変数名に変更しても問題ありません。