use HTML::Parser;

print strip("<b>Hello</b>!\n");

sub strip {
    my $html = '';
    my $p = new HTML::Parser(
            api_version => 3, 
            text_h => [ sub { $html .= shift }, 'text'],
        );
    $p->parse(shift);
    $p->eof;
    return $html;
}