#!/usr/bin/perl

use strict;
use warnings;

use HTML::TokeParser::Simple;

my $text = '</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>';
my $result = '';
my $p = HTML::TokeParser::Simple->new(\$text);

while ( my $token = $p->get_token ) {
    my $text = $token->as_is;
    if ($token->is_tag) {
        next if $text =~ /^<\/.*\/>$/;
    }
    $result .= $text;
}

print $result;