my $rc = reverse uc($dna) =~ tr/ATGC/TUCG/r;