use HTML::TokeParser;
my $parser = HTML::TokeParser->new( \$src );