最近ActivePerlを導入しまして。
　CSVを分解するのにsplitを利用したのですが、連続するデリミタやスペースを
一纏めにデリミタ扱いするにはどうするのでしょう？
　この例だと、タブ文字とカンマが連続するからカラ配列が途中に入ってしまって。
　初歩的な内容ですよね？


$readline ="16\t,130118\t,05,12,13,29,34,35,30,";
#$readline ="16,130118,05,12,13,29,34,35,30,";

open(DST ,">./test.txt" ) or die "file open error DST : $!\n";

@readarray = split(/\s|,/ ,$readline);
# 第n回。
$top = shift(@readarray);
# 日付。
$day = shift(@readarray);
# 末尾。
$ende = pop(@readarray);
for($i =0; $i < @readarray; $i++ )
{
# body.
print DST " $i:$readarray[$i]";
}
print DST "\n";

exit;