note
Ovid
<p>You'll need to customize it, but ... </p>
<code> use strict;
use HTML::TokeParser::Simple 3.15;
my $p = HTML::TokeParser::Simple->new( url => $in{$url} );
while ( my $token = $p->get_token ) {
if ( $token->is_start_tag('a') ) {
my $href = $token->get_attr('href');
$token->set_attr('href', "foo$href");
}
print $token->as_is;
}</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-17000">
<p>Cheers,<br />
<a href="/index.pl?node=Ovid&lastnode_id=1072">Ovid</a></p>
<p><small>New address of <a href="http://users.easystreet.com/ovid/cgi_course/">my CGI Course</a>.</small></p>
</div></div>
625770
625770