use HTML::TokeParser::Simple;

my $doc = qq(story on GettingIt about <a href="http://ss.gettingit.com/cgi-bin/gx.cgi/AppLogic+FTContentServer?GXHC_gx_session_id_FutureTenseContentServer=7f12a816fa48a5b9&pagename=FutureTense/Demos/GI/Templates/Article_View&parm1=A1545-1999Oct12&topframe=true">hacking polls</a>. Contrary to what the article says, Time is <b>not</b> checking for multiple votes on <a href="javascript:document.timedigital.submit();">their poll</a>. And I'm happy to report that despite the fact that my cheater scripts aren't running, I'm still beating Bill Gates.);

my $doc2;
my $total = 0;
my $p = HTML::TokeParser::Simple->new( \$doc );
while ( my $token = $p->get_token ) {
	if ($token->is_text) {
		if (length($token->return_text) + $total <= 200) {
			$doc2 .= $token->return_text;
			$total += length($token->return_text);
		}
		else {
			for (split / /, $token->return_text) {
				if ($total + length($_) <= 200) {
					$doc2 .= $_ . ' ';
					$total += length($_) + 1;
				}
				else {
					last;
				}
			}
			chop($doc2) if $doc2 =~ /\s$/;
		}
	}
	else {
		$doc2 .= $token->as_is;
	}
}
print $doc2;


##</code><code>##

story on GettingIt about <a href="http://ss.gettingit.com/cgi-bin/gx.cgi/AppLogi
c+FTContentServer?GXHC_gx_session_id_FutureTenseContentServer=7f12a816fa48a5b9&p
agename=FutureTense/Demos/GI/Templates/Article_View&parm1=A1545-1999Oct12&topfra
me=true">hacking polls</a>. Contrary to what the article says, Time is <b>not</b
> checking for multiple votes on <a href="javascript:document.timedigital.submit
();">their poll</a>. And I'm happy to report that despite the fact that my cheat
er scripts