#!/usr/bin/perl -w
##############################################
### Huang He                               ###
### convert_RNA_to_DNA.pl                  ###
##############################################
($RNA)=@ARGV;
open(File,"$RNA")||die "can't open the $RNA\n";
while(<File>){
chomp;
s/\c@*//g;
s/\cM*$//;
	if(/^\>/){
		print "$_\n";
		next;
	}
	$DNA=$_;
	$RNA=$DNA;
	$RNA=~s/U/T/g;
	print "$RNA\n"
}
close File;