use HTML::TableExtract;
 $te = HTML::TableExtract->new( headers => [qw(Date Price Comments)] );
 $te->parse($html_string);

 # Examine all matching tables
 foreach $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }

##</code><code>##

<table>
<tr><td>Date</td><td>Price</td><td>Comments</th></tr>
<tr onclcick="dkfjskdjfskfd"><td>21/9</td><td>2324</td><td>abc</td></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>absadsadsc</td></tr>
</table>

##</code><code>##

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