until( eof( FASTA) {

##</code><code>##

    $seq =~ tr[\n][];