http://www.perlmonks.org?node_id=1055094


in reply to Re: Defining substring matches
in thread Defining substring matches

until( eof( FASTA) {

You have two left parentheses but only one right parenthesis.

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

You are replacing the newline character with a newline character?