Select Code to Download

use HTML::TableExtract;
 $te = HTML::TableExtract->new( headers => [qw(Date Price Comments)] )
+;
...
      print join(',', @$row), "\n";
   }
 }

<table>
<tr><td>Date</td><td>Price</td><td>Comments</th></tr>
...
<tr onclcick="dkfjskdjfskfd1"><td>21/9</td><td>2324</td><td>abasdasc</
+td></tr>
<tr onclcick="dkfjskdjfskfdsdfsdf2"><td>21/9</td><td>2324</td><td>absa
+dsadsc</td></tr>
</table>

dkfjskdjfskfd, 21/9, 2324, abc
dkfjskdjfskfd1, 21/9, 2324, abasdasc
dkfjskdjfskfdsdfsdf2, 21/9, 2324, absadsadsc