sub strip {
    my $html = shift;
    my $p    = HTML::PullParser->new(
        doc  => $html,
        text => 'text',
    );
    my $result = '';
    while ( my $t = $p->get_token ) {
        $result .= $t->[0];
    }
    return $result;
}