$_= uc($_);
tr/ATGC/TACG/;