Transcription from DNA sequence to RNA sequence

Change DNA sequence to RNA sequence

$DNASeq = 'GATACAA.......'';

#Make a new variable to copy the DNA information

$RNASeq = $DNASeq;

#Change all Thymines to Uracils

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

print "DNA sequence : $DNASeq\n";

print "RNA sequence : $RNASeq";

exit;

=~ : binding operator tells Perl to match the pattern on the right against the string on the left

(http://docstore.mik.ua/orelly/perl4/lperl/ch09_03.htm)

s/ / / : substitution function, s is substitution operator, / is used to make a distinction

g : pattern modifier from start to end