Select Code to Download

  1  #!/usr/local/bin/perl
  2  use strict;
...
 13  my @chains = map { $_->attr('href') =~ /chain=(\w)/ } @chain_tags
+;
 14  say " Number of chains : " . scalar @chains;
 15  say @chains;

 
Number of chains : 11
AABCEFHIJKL