Select Code to Download

#!/usr/local/bin/perl
use strict;
...
my @chains = map { $_->attr('href') =~ /chain=(\w)/ } @chain_tags;
my @chain = map {split ' '} @chains;
foreach my $chain (@chain){print "$chain\n";}

pisolo@pisolo:~/Scrivania/test$ perl test7.pl 
A
...
J
K
L