Exercise 4.5 D

Return to Aug 30-Sept 5

#!/usr/bin/perl -w

use strict; 

#Damian Almiron

#Ex 4-5 

# Write a program to reverse transcribe RNA to DNA 

# The RNA  variable 

my $RNA = 'AUGCAUGCAUGCAUGCAUU'; 

print "This is our original RNA:\n\n”

print “$RNA.\n\n"; 

#Reverse transcription 

my $DNA = $RNA; 

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

#Print the DNA to the screen 

print "Here is the resulting DNA:\n\n"; 

print "$DNA.\n\n"; 

exit;