Регулярные выражения в Perl

[profi]

Задача состоит в том, что-бы найти строки в которых три столбца (ячейки).
Например в таком "мусоре":

<table border=1>
<tr><td>1</td><td>2</td><td>3</td></tr>
</table>

<br><br>

<table border=1>
<tr><td>1</td><td>2</td><td>3</td><td>4</td></tr>
</table>

что бы регулярное выражение вывело строку:<tr><td>1</td><td>2</td><td>3</td></tr>.

Вот мои наработки:

open (DISCR, "<table.htm");

@mas=<DISCR>;

$kol=1;

foreach $line(@mas){
if ($line=~/(<td>.*){3}/gi){
print "$kol - $line<BR>";
}
$kol++;
}

Этот код выводит строки в которых тег <td> встречается 3 или больше раз. Подправьте код пожалуйста!

[SkyM@n]

<tr>.*?</tr>

Проверено тут.