use HTML::Parser;

sub quote {
    my ($delim, $text) = @_;
    $text =~ s/([\\\Q$delim\E])/\\$1/g;
    return "$delim$text$delim";
}

sub fix_tags {
    my ($tags) = @_;

    my $result;

    my $p = HTML::Parser::->new(
        api_version => 3,
        start_h => [
            sub {
                my ($tagname, $attr, $attrseq) = @_;
                my @pairs = map { "$_=" . quote('"', $attr->{$_}) }
                    @$attrseq;
                $result .= '<' . join(' ', $tagname, @pairs) . '>';
            },
            'tagname, attr, attrseq'
        ],
        default_h => [ sub { $result .= shift }, 'text' ],
    );

    $p->parse($html);

    return $result;
}