my @after;
@after = grep { !/[GT]/ } @positions;

##</code><code>##

my @after;
foreach @positions {
    push(@after, $_) if (!/[GT]/);
}