open(IN1, "1.fa") || die "Cannot open this file";

@lines = <IN1>;

$i = 0;

for (@lines)

{

$lines[$i]=~s/\nA/\tA//g;

$lines[$i]=~s/\nT/\tT//g;

$lines[$i]=~s/\nC/\tC//g;

$lines[$i]=~s/\nG/\tG//g;

$lines[$i]=~s/\nN/\tN//g;

$thislines[$i]=$lines[$i];

print $thislines[$i];

$i++;

}

open(OUT, ">1.txt") || die "Cannot open this file";

for $thisline(@thislines){

print OUT $thisline;}

close(OUT);
close(IN1);