$num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g;
ヘーこりゃ便利だ。