#!/usr/bin/perl


use strict;
use warnings;


open GENOMESEQ, $ARGV[0] || die "$!";
open OUT,">$ARGV[0]"."2" || die "$!";
$/=">";<GENOMESEQ>;$/="\n";
while(<GENOMESEQ>) {
   chomp;
   my $seqname = $_;
   $/=">";
   my $seq=<GENOMESEQ>;
   chomp($seq);
   $seq=~s/\s+//g;
   $seq=~s/\n+//g;
   my $seq2 = $seq;

   $seq2=~s/U/T/g;
   print OUT ">".$seqname."\n".$seq."\n";
   print OUT ">T_".$seqname."\n".$seq2."\n";
   $/="\n";
}
close GENOMESEQ;
close OUT;
