Hi dear monks. I'm tryng to improve my script as automatically surfing for searching my bio data :-).... That is my question: I have my web page and I only want to extract the link of my ligand...They are two for this case and maybe more or less for other cases (other proteins). In this case I need only to print the link of the "EPE" ligand...but it seems that my "if" cicle doesn't work...I'll paste my code below

#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;



print "ELENCO LIGANDI\n";

my $url3 = "http://www.ebi.ac.uk/thornton-srv/databases/cgi-bin/pdbsum
+/GetPage.pl?pdbcode=2j6p&template=ligands.html&l=1.1";
my $content =get ($url3);

use HTML::TreeBuilder;

my $p = HTML::TreeBuilder->new;
$p->parse_content($content);

my @a = $p->look_down(_tag => q{a});
for my $a (@a){
    my $txt = $a->as_text;    
    if ($txt=~ /EPE\s/){
        print $txt, qq{\n};


use Web::Scraper;
use Data::Dumper;


# Invoked for a <a> tag
my $link = scraper {
    process '//a' => 'href' => '@href';
    process '//a' => 'description' => 'TEXT';
};

my $page = scraper {
    process '//a[@href]' => 'links[]' => $link;
    process '//meta[@http-equiv]' => 'meta[]' => '@content';
    process '//area[@href]' => 'areas[]' => '@href';
    
};

my $info = $page->scrape($content);

print Dumper $info;
    }
               }

$p->delete;
[download]

thanks in advance....I'm apologizing for disturbing all of you