utf8::decode($document);
   my $p = HTML::TokeParser->new( \$document );
   # ...