Exercise 2. Evaluating cDNA: DNA-->cDNA (Code Download: exec2.pl)

$DNA='ATGCATGC';
print "$DNA\n";

#variable name change
$cDNA=$DNA;

#replacement of four bases
$cDNA=~ s/A/T/g;
$cDNA=~ s/T/A/g;
$cDNA=~ s/G/C/g;
$cDNA=~ s/C/G/g;

print "$cDNA\n";


"Was the anwser right?" If no, click here.