@nar = map { # get rid of trailing number
             my $st = ( split( " ", $_ ) )[0];
             # replace bracket with S
             $st =~ s/\[[ATCG]+\/S/g;
             # return result value
             $st;
       } @arr;