perl -MData::Dumper -wle '$_="a,b,c,,,d,e"; print Dumper [split m/,/, $_, 3]'
$VAR1 = [
          'a',
          'b',
          'c,,,d,e'
        ];