Hi dear monks, I'm sorry to disturb you again...for problem solved before...but I have a long script...and I parsed as I did before but...now I don't know why it doesn't work...I'm not able to find the errors...the synthax seems ok...I'll paste an example code, because...the code is too long

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

    my $url="http://www.ebi.ac.uk/thornton-srv/databases/cgi-bin/pdbsu
+m/GetPage.pl?pdbcode=1r9t&template=main.html";
    my $content=get ($url);     
    my $chain;
    my @chains;
    my $p = HTML::TreeBuilder->new;
    $p->parse_content($content);
    my @tds = $p->look_down(_tag => q{td});
    for my $td (@tds)
    {

      my $a = $td->look_down(_tag => q{a});
      next unless $a;
          if ($a)
            {
            my $href = $a->attr(q{href});
            if ($href =~ /&chain=(\w)"/)
                {
                print $1 qq{\n};
                $chain=$1;
                push @chains, $chain;    #I want to extract the chains
+....A,B,C,D,E,F,H,I,J,K,L
                }
            }
    $p->delete;
    
    }
[download]

in this part I only want to print and push into an array the chains of the protein....so that my array would be @chains(A,B,C,etc....) but it doesn't work...If anyone could help me...please...I'm running a little crazy...thanks you all