defined $seq ? push @fasta, $seq : push @fasta, "> COULDN'T FIND IT" ;
[download]

You can save a few (meagre) keystrokes and make the statement more readable (IMO):

push( @fasta, defined($seq) ? $seq : "> COULDN'T FIND IT" );
[download]