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