or download this
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_FutureTen
+seContentServer=7f12a816fa48a5b9&pagename=FutureTense/Demos/GI/Templa
+tes/Article_View&parm1=A1545-1999Oct12&topframe=true">hacking polls</
+a>. Contrary to what the article says, Time is <b>not</b> checking fo
+r 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.);
...
}
}
print $doc2;