Select Code to Download

use warnings;
use strict;
...
            'T'
          ]
        ];

@positions = grep { $_->[1] !~ /^[GC]/ } @positions;