#!/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;