> C:\>perl
> foreach $t (split(/,/, "foo,bar,,,,,,,,", -1)) {
>         print "$t<br>";
> }
> ^Z
> foo<br>bar<br><br><br><br><br><br><br><br><br>
> splitの3つ目の引数に負の数を

そんな技が(;´Д`)

参考：2007/02/07(水)03時54分00秒