use HTML::LinkExtor ();
{
my $p = HTML::LinkExtor->new();
$p->parse(<<'__EOI__');
Virtual Library
__EOI__
my @links = $p->links();
print($links[0][2], $/);
}
{
my $p = HTML::LinkExtor->new();
$p->parse(<<'__EOI__');
Virtual Library
__EOI__
my @links = $p->links();
print($links[0][2], $/);
}
__END__
output
======
http://rds.yahoo.com/S=10341:D1/CS=10341/SS=53744154/SIG=112eblhep/*http%3A//www.beltbuckleshop.com/
http://rds.yahoo.com/S=10341:D1/CS=10341/SS=53744154/SIG=112eblhep/*http%3A//www.beltbuckleshop.com/