#!/usr/bin/perl

use strict;
use warnings;

use HTML::TreeBuilder;

my $html = do{local $/;<DATA>};
my $r = HTML::TreeBuilder->new_from_content($html);

printf qq{*%s*\n}, $_->as_text for $r->look_down(_tag => q{b});

__DATA__
<td>Suggested Categories or Articles</td>
<td>
  <b>personal injury</b>
  <font size="-3" face="Verdana"> (0.56)</font><br>
  <b>accident lawyers</b>
  <font size="-3" face="Verdana"> (0.4)</font><br>
  <b>attorneys</b>
  <font size="-3" face="Verdana"> (0.35)</font><br>
  <b>law firms</b>
  <font size="-3" face="Verdana"> (0.32)</font><br>
  <b>litigation</b>
  <font size="-3" face="Verdana"> (0.32)</font><br>
</td>