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

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

  my $RNA = $DNA;
  $RNA =~ s/T/U/g;
  print "RNA sequence $RNA\n";