my $dna = 'ACGTACGT';
my $cmp = 'TGCATGCA';
(my $recmp = $cmp) =~ tr[ACGT][TGCA];
print 'Matched' if $recmp eq $dna;