use HTML::TokeParser;

my $result;
my $p = HTML::TokeParser->new(\$text);

while ( my $token = $p->get_token ) {
	if ($token->[0] eq 'T') { 
	$result.= $token->[1];
}

##</code><code>##

</tr />
</tbody />
</table /></p>
<p>We have&nbsp;different groups to help you through the buying process.&nbsp;Our team of counselors and volunteers can provide transportation, and childcare.&nbsp;</p>
<p>&nbsp;</p>';

##</code><code>##

</tr />
</tbody />
</table />
We have&nbsp;different groups to help you through the buying process.&nbsp;Our team of counselors and volunteers can provide transportation, and childcare.&nbsp;
&nbsp;';