#! perl -slw
use vars qw[$required];
use strict;

sub abstract (\$$) {
	my ($data, $req) = @_;

	my ($s, $p) = (0, 0);
	while ($p < $req) {
		$$data =~ /[^<]{1,${\($req - $p)}}/gc;
		last if ($p += pos($$data) - $s) >= $req;
		my ($q) = $$data =~ /\G[^"'>]+(.)/gc; 					#!"
		$$data =~ /\G[^$q]+/gc if $q =~ /["']/; 				#!"
		$$data =~ /\G[^>]+/gc;
		$s = ++pos($$data);
	}
	$$data =~ /\G[\w]+/gc;
	return substr( $$data, 0, pos($$data) );
}

my $data = join '', <DATA>;
$data =~ tr/\n/ /d;

print abstract( $data, $required||40 );

__DATA__
A 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.
Some <b>more</b> test data.
<table name='a probably invalid> name' width='%80'>
<TR align=right><TH>Things</TH><TH>Values</TH></TR>
<TR align=center><TD>A thing</TD><TD>A value</TD></TR>
</table>