引数で「文字列」「区切り文字」「間隔」を渡すと区切り文字で整形された文字列が返ります。
主に、お金の表現に利用されています。
区切り文字と、間隔は任意に指定できます。

●Sample

require "numcom.pl";

#対象の文字列
my $number ="123456789";

#区切り文字
my $kugirimoji =",";

#区切る間隔
my $kankaku =3;

$result = &Numcom( $number, $kugirimoji, $kankaku );

#対象の文字列
# $number = "123456789"
#結果
# $result = "123,456,789"

---------------------------------------------------