$dna=~ tr/ATGC/atgc/;