一文本处理问题

最近一直在学习PERL的文本处理，今天在CU上遇到一个问题，练习了一下，结果没搞定...

while(<DATA>){
??? if($.==1){
??? ??? chomp;
??? ??? %tab=();
??? ??? @b=map{((++$tab{$_}) ==2)?($_.$tab{$_}):($_)} split(/s+/,$_);
??? ??? print "@bn";
??? }else{
??? ??? s/"(.*?)"/1/g;
??? ??? print;
??? }
}
__DATA__
Column1??? Column2??? Column3??? Column4 Column3 Colum5
Data??? Data??? "Data"??? Data??? "Data"??? Data

?

要求把第一行的重复的列在后面加上字符串2

把第其他行的引号去掉，以上是我写的大概的方法，我只想学习下而已，有很多的地方存在不足，特记录下。

@b=map{($tab{$_}++)?($_.$tab{$_}):($_)} split(/s+/,$_);

以上是纠结我很久的一个地方，最后发贴才明白过来，很惭愧。