Perl、数値を金額表示させる

#!/usr/bin/perl
my $num=1234567890;
$num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g;
print $num;
で、結果、「1,234,567,890」に置換される。

参考　http://wiki.stsd.info/perl/5pWw5a2X44KSM-ahgeOBlOOBqOOBq-OCq-ODs-ODnuOBp-WMuuWIh-OCiw.html