elsif( ($tag eq "td")  )
         {
 
             my $text = $tp->get_text;  
             print "$text\n"
             if($text =~ /\d{1,2}/);
         }