use strict;
use Data::Dumper;
use HTML::LinkExtor;

my $base = 'http://perlmonks.org/';
my $stringy = q{
 <tr><td><a HREF="/index.pl?node_id=188511">How does this code work (warnings.pm)?</a></td> <td>by  <a HREF="/index.pl?node_id=80322">John M. Dlugosz</a></td></tr>
 <tr><td><a HREF="/index.pl?node_id=188509">Tk and X events</a></td> <td>by  <a HREF="/index.pl?node_id=961">Anonymous Monk</a></td></tr>
 <tr><td><a HREF="/index.pl?node_id=188507">warnings::warnif etc. wise usage?</a></td> <td>by  <a HREF="/index.pl?node_id=80322">John M. Dlugosz</a></td></tr>
 <tr><td><a HREF="/index.pl?node_id=188505">52-bit numbers as floating point</a></td> <td>by  <a HREF="/index.pl?node_id=80322">John M. Dlugosz</a></td></tr>
};


my $p = new HTML::LinkExtor(undef, $base);

$p->parse($stringy);

print Dumper $p->links;

$p = new HTML::LinkExtor( sub { print Dumper($_) for @_; } , $base);

$p->parse($stringy);