关于提取逗号之间数据的问题

怎样提取出下面行中第三、四个逗号和第五、六个逗号之间的内容？
"data1","data2","data3","dataneed1","data4","dataneed2","data5","data6","data7","data8"
里面的data内容是不固定的，但是不出现,或者"
谢谢！！

split 或者 cut 之类的

其实，你要是能读读书最好

我刚刚开始学这个不久，可是现在急着要这个结果，所以来向高手请教一下

#!/usr/bin/perl

use strict;
use warnings;

$_ = '"data1","data2","data3","dataneed1","data4","dataneed2","data5","data6","data7","data8"';

print ((split ',', $_)[3,5]);


这样能得到你要的东西吗

恩  谢谢了 以后我一定好好学！

不知道你的数据是那里读取的.两个比较笨的建议.
建议一:
my $line = qw("data1","data2","data3","dataneed1","data4","dataneed2","data5","data6","data7","data8");
my @array = split(',',$line);
#如不要双引号
map{$_ =~ s/\"//g} @array;

print "$array[3]\n$array[5]";
建议二:
my $line = qw("data1","data2","data3","dataneed1","data4","dataneed2","data5","data6","data7","data8");
$line =~/(.\w+.).(.\w+.).(.\w+.).(.\w+.).(.\w+.).(.\w+.).(.\w+.).(.\w+.)/;
print "$4\n$6\n";