use HTML::TableExtract;
use LWP::Simple;
my $proj="abc"; 
my $cnt;
my $Table_Extract = HTML::TableExtract->new();

my $Build_Page = "path of html file";
	my $Content = get("$Build_Page");	
	$Table_Extract->parse($Content);

	
	foreach my $ts ($Table_Extract->tables)
	{
	  foreach  my $row ($ts->rows)
	  {
	    if($$row[0]=~/$proj/)
	   {
       	print $$row[1];	   
	  }
	  }
       
	 }