怎样将文本文件存在一个二维数组中?

怎样将文本文件存在一个二维数组中?
我想把一个文本文件提出,并保存在一个二维数组中,应该怎么提取呢?
例如:文本文件如下:
f-MS06-071:928088:1;MICROSOFT;5.2-SP0,SP1
f-MS06-071:928088:2;MICROSOFT;5.2-SP0,SP1
f-MS06-071:928088:2;MICROSOFT;5.2-SP0,SP1;R f-MS06-061:924191:1
f-MS06-076:923694:1;MICROSOFT;5.2-SP1
f-MS06-076:923694:1;MICROSOFT;5.2-SP1;R f-MS06-016:911567:219:0
f-MS06-076:923694:1;MICROSOFT;5.2-SP1;R f-MS06-043:920214:1
我最后向得到的结果是:一个txt文件，内容如下：
f-MS06-071:928088:1;MICROSOFT;5.2-SP0,SP1
f-MS06-071:928088:2;MICROSOFT;5.2-SP0,SP1;R f-MS06-061:924191:1
f-MS06-076:923694:1;MICROSOFT;5.2-SP1;R f-MS06-016:911567:219:0
f-MS06-076:923694:1;MICROSOFT;5.2-SP1;R f-MS06-043:920214:1
就是将每行中信息不完全的重复内容去掉，保留内容完整的行。
我本来想把文本文件提到一个二维数组中，在将不同的行进行比较判断，但是不会提取，请各位帮忙，在线等待。

看看有没有用
open(FD,"tt.txt");
while(<FD>){
chomp;
push @ao,[split /;/ ,$_];
}

楼上的不行吧--试试这个.
楼上的不行吧
试试这个：

my $i = 0;
my $j = 0;
my @data;
my $flag = 0;

open(FILE,"data");
while(<FILE>){
$flag = 0;
print;
chomp;
$i == 0 && $i ++ && next;
for($j = 0;$j < $i;$j ++){
if(/$data[$j]/){
$data[$j] = $_;
$flag = 1;
last;
}elsif($data[$j] =~ /$_/){
$flag = 1;
last;
}
}
if(!$flag){
$data[++$i] = $_;
}
}
print"------------\n";
foreach(@data){
print;
print"\n";
}

jrgfeg
IJJAuq <a href="http://sqkkytyadnsn.com/">sqkkytyadnsn</a>, [url=http://pqftyoucgocj.com/]pqftyoucgocj[/url], [link=http://ynqvutszdaoh.com/]ynqvutszdaoh[/link], http://cqbhtswqrnal.com/

[img]http://wlmgrupukxyp.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]uucYrnOMn[/url]