Select Code to Download

1.800   A  Ala
  -3.500   BB Asx
...
  -1.300   Y  Tyr
  -3.500   ZZ Glx
  -0.490   ** ***

my $filename = 'all.fasta.txt';
open (my $fh, "<", $filename) or die $!;
...
my $row= join("\t",@row);
print("\n$row\n");
}

>gi|6103257|emb|CAB07737.2| glycoprotein [Viral hemorrhagic septicemia
+ virus] MEWNTFFLVILIIIIKSTTPQITQRPPVENISTYHADWDTPLYTHPSNCREDSFVPIRPAQ
+LRCPHEFED INKGLVSVPTQIIHLPLSVTSVSAVASGHYLHRVTYRVTCSTSFFGGQTIEKTILEAKL
+SRQEATNEASK DHEYPFFPEPSCIWMKNNVHKDITHYYKTPKTVSVDLYSRKFLNPDFIEGVCTTSPC
+QTHWQGVYWVGAT ..... ...and then the next one...