Select Code to Download

        last unless $line =~ m{
            ( [^(]+ )    # 1 anything except opening paren
...
                $a->[1] cmp $b->[1] # sort by $1
              }
              @entries;