Difference between revisions of "Exercise 4.5 D"
Jump to navigation
Jump to search
(New page: Return to Aug 30-Sept 5 <pre> #!/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 = 'AUGCA...) |
(No difference)
|
Latest revision as of 12:25, 18 December 2009
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;
