在一行代码中能实现重发查找吗？类似于查找下一个

在一行代码中能实现重发查找吗？类似于查找下一个
被分析的文件：
<td align="center"><b>1</b></td>
...
<td> 50711</td><td> 8.37</td></tr>

<td align="center"><b>2</b></td>
...
<td> 56866</td><td> 6.77</td></tr>

<td align="center"><b>3</b></td>
...
<td> 56931</td><td> 6.77</td></tr>

对于以上的格式，用数组变量读入，并一行行查找，很容易实现以下结果：
1 50711 8.37
2 56866 6.77
3 56931 6.77


但现在，我用以下代码
open (FH, "1.htm")||die;
open (OUT, ">file.txt")||die;
$/ = undef;
$line = <FH>;

把整个文本一起读入，能否写个循环查找，实现上面的结果呢？相当于能文本中的“查找下一个”并打印出来。。。