note
poolpi
<p>If you need to deal with a HTML document:<br></p>
<c>
#!/usr/bin/perl
use strict;
use warnings;
use HTML::TokeParser;
# Simple example :
my $doc = <<END;
<html>
<head>
</head>
<body>
<p>FooOooo barbar baz</p>
<p>Babar Foofoo zba zba</p>
<p>oofOOoof zzbb aarr</p>
</body>
</html>
END
my $p = HTML::TokeParser->new( \$doc );
while ( $p->get_tag("p") ) {
my $text = $p->get_trimmed_text;
print "Text: $text\n";
}
</c>
<p><br>hth,<br>PooLpi<br><br></p>
<div class="pmsig"><div class="pmsig-630083">
<small>'Ebry haffa hoe hab im tik a bush'. <a href='
http://hjem.get2net.dk/sbn/gladi/proverbial.htm#stick' target='_parent'>
Jamaican proverb</a></small>
</div></div>
777545
777545