Help for this page

Select Code to Download

Select or download this

my $dna = 'TAgc';
my $rc = uc reverse $dna =~ tr/ATGCatgc/TUCGtucg/r;

print "$dna\n$rc";

Select or download this
```
TAgc
GCTU
```