#!/usr/bin/perl -- 

use strict;
use warnings;


use YAPE::HTML;

my $content = q~<a style='postion: top; font:roman' href=hi.html href='bold' src="image" />~;

my $parser = YAPE::HTML->new($content);
my ($extor,@fonts,@urls,@headings,@comments);

# here is the tokenizing part
while (my $chunk = $parser->next) {

    use Data::Dumper;
    print Dumper( $chunk ),"\n";

    if ($chunk->type eq 'tag' and $chunk->tag eq 'a') {
#token 1 = a
        print "token 1 = ", $chunk->tag,"\n";
    }
}

__END__
$VAR1 = bless( {
                 'TEXT' => [],
                 'ATTR' => {
                             'src' => 'image',
                             'href' => 'bold',
                             'style' => 'postion: top; font:roman'
                           },
                 'CLOSED' => 0,
                 'TAG' => 'a',
                 'IMPLIED' => '/',
                 'TYPE' => 'tag'
               }, 'YAPE::HTML::tag' );

token 1 = a