Exercise 4.5 D

From Earlham Cluster Department

Jump to: navigation, 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 

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;

Personal tools
Namespaces
Variants
Actions
websites
wiki
this semester
Toolbox