#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  my $DNA = "AGAGCGCTGCGCCAGGCTCGACAGATCGCCAGATA";
  print "DNA $DNA\n";

  my $rev = reverse $DNA;
  $rev =~ tr/ACGTacgt/TGCAtgca/;
  print "rev $rev\n";