怎么样处理一个长字符串，并重复提取相应的信息。急需

怎么样处理一个长字符串，并重复提取相应的信息。急需
我需要处理一个长字符: <TR><TD>data1</TD><TD>data2</TD><TD>data3</TD></TR><TR>.........</TR>
我需要提取data1,data2,data3 成一行。然后再处理下一个<TR></TR>

急需.

thanks a lot.

使用最小匹配符?
#!/usr/bin/perl -w

$p0="<TR><TD>data1</TD><TD>data2</TD><TD>data3</TD></TR><TR><TD>data4</TD></TR>";

while ($p0 =~ /<TR>(.*?)<\/TR>/gi) {
$p1 = $1;
while ($p1 =~ /<TD>(.*?)<\/TD>/gi) {
print "$1 ";
}
print "\n";
}

多谢了
[quote]回复给 poseidon : 使用最小匹配符?...[/quote]