# program to generate the reverse complement of DNA strand

print "\nEnter a DNA sequence: ";
$DNA = <STDIN>;		#get input from keyboard
chomp $DNA;			#remove newline character from the end of input

print "Here is the starting DNA sequence: \n".$DNA,"\n";  
$DNA =~ s/T/U/g;   

print "Here is the result of transcribing the DNA to RNA: \n";
print "$DNA\n";

exit;