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

print "$dna\n$rc";