Answer 2. Evaluating cDNA : DNA-->cDNA

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

#variable name change
$cDNA=$DNA;

#replacement of four bases
$cDNA=~ tr/ATGC/TACG/;

print "$cDNA\n";