Hello, I have file here. I want to change file 1.fa to file 1.txt. Thanks in advance for great help! Best, yue

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);
[download]

1.fa

>1
AGTCGTAGCAT
>2
TGAGCTACG
>3
GGCATAGN
>4
CGCACNCAGCTACACC
>5
NGATAGCTACA
[download]

1.txt
>1    AGTCGTAGCAT
>2    TGAGCTACG
>3    GGCATAGN
>4    CGCACNCAGCTACACC
>5    NGATAGCTACA
[download]