#!/usr/bin/perl
use strict;
while( <DATA> ) {
    foreach ( split "</b>" ) {
        (my $name) = $_ =~ /\s?\w.*\<b\>(\w+.*)/;
        print "$name\n" if ( defined( $name ) );
    }
}

__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>