sub _parse {
    my ( $self, $content ) = @_;
 
    my $parser = HTML::TokeParser::Simple->new( \$content );
 
    my %data = ( content => '' );
    my %nav;
    @nav{ qw(level  look_for_data  store_data  get_lang) } = (0) x 4;
 
    while ( my $t = $parser->get_token ) {
        if ( $t->is_start_tag('form')
            and defined $t->get_attr('id')
            and $t->get_attr('id') eq 'options'
        ) {
 
#etc