Perlテーブル要素の抜粋について
はじめまして、
わからないことがあるので教えてください；；
<table border="1">#1個目
<tr>
<th>No</th>
<td>1</td>
</tr>
<tr>
<th>名前</th>
<td>太郎</td>
</tr>
<tr>
<th>ランク</th>
<td>A</td>
</tr>
</table>
<table border="1">#2個目
<tr>
<th>住所</th>
<td>東京都渋谷...</td>
</tr>
<tr>
<th>電話番号</th>
<td>000-0000-000</td>
</tr>
</table>
<table border="1">#3個目
<tr>
<th>試験日</th>
<th>科目</th>
<th>参考資料</th>
<th>点数</th>
<th>順位</th>
</tr>
<tr>
<td>2015/6/25</td>
<td>国語</td>
<td><a href="kyouikunet.html"><img src="kokugo.gif" alt="kokugo"></a></td>
<td>70</td>
<td>12</td>
</tr>
<tr>
<td>2015/8/25</td>
<td>数学</td>
<td><a href="kyouikunet.html"><img src="sugaku.gif" alt="sugaku"></a></td>
<td>80</td>
<td>5</td>
</tr>
<tr>
<td>2015/10/25</td>
<td>理科</td>
<td><a href="kyouikunet.html"><img src="rika.gif" alt="rika"></a></td>
<td>75</td>
<td>8</td>
</tr>
<tr>
<td>2015/12/25</td>
<td>英語</td>
<td><a href="kyouikunet.html"><img src="eigo.gif" alt="eigo"></a></td>
<td>96</td>
<td>2</td>
</tr>
</table>
このような表があり、
$KojinSeisekiTroに入っており
その中の
テーブル1番目とテーブル3番目の情報の
[tb]内の文字列をカンマ区切りで保存したいのですが
どのようにするのかわからないです・・・
例）
この表ですと
1,太郎,A
2015/6/25,国語,70,12
2015/8/25,数学,80,5
2015/10/25,75,8
2015/12/25,96,2
.
.
.
以下、行の最終は不明なので、最後までという形
を、Tro.txtに保存したいです
どうかご教示お願い致します；；
