Exercise 4.5 D

From Earlham CS Department
Jump to navigation Jump to search

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 


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";