Exercise 4.5 D
Revision as of 12:25, 18 December 2009 by Damian (talk | contribs) (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...)
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;
