Exercise 4.5

Return to Week 1

Exercise 4.5 in Beginning Perl for Bioinformatics

#!/usr/bin/perl -w use strict; #Erika Phelps #Sept. 21, 2009 #Exercise 4-5

1. Sometimes information flows from RNA -> DNA. Write a program to reverse
2. transcribe RNA to DNA.

1. The RNA

my $RNA = 'AGUCAGUCCUGACUGA';

print "\nHere is the starting RNA:\n\n$RNA.\n\n";

1. Reverse transcribe into DNA

my $DNA = $RNA;

   $DNA =~ s/U/T/g;

1. Print the DNA to the screen

print "Here is the result of reverse transcribing RNA to DNA:\n\n";

print "$DNA.\n\n";

exit;