my $html = 'textsomething'; $p = HTML::TokeParser->new( \$html );