Select Code to Download

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;

story on GettingIt about <a href="http://ss.gettingit.com/cgi-bin/gx.c
+gi/AppLogi
c+FTContentServer?GXHC_gx_session_id_FutureTenseContentServer=7f12a816
+fa48a5b9&p
agename=FutureTense/Demos/GI/Templates/Article_View&parm1=A1545-1999Oc
+t12&topfra
...
> checking for multiple votes on <a href="javascript:document.timedigi
+tal.submit
();">their poll</a>. And I'm happy to report that despite the fact tha
+t my cheat
er scripts