DNA Reverse Complement

From Augix' Wiki

sub revdnacomp {
  my $dna = @_;
  my $revcomp = reverse($dna);
 
  $revcomp =~ tr/ACGTacgt/TGCAtgca/;
 
  return $revcomp;
}