#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::Simple;
use HTML::TreeBuilder::XPath;
use Data::Dumper;

my $url="http://www.ebi.ac.uk/thornton-srv/databases/cgi-bin/pdbsum/GetPage.pl?pdbcode=1r9t&template=main.html";
my $p = HTML::TreeBuilder::XPath->new_from_content(get($url));
my @chain_tags = $p->findnodes("//td//a[contains(\@href,'chain=')]");
my @chains = map { $_->attr('href') =~ /chain=(\w)/ } @chain_tags;
my @chain = map {split ' '} @chains;
foreach my $chain (@chain){print "$chain\n";}