perl_n00b - Instead of rolling your own FASTA parser, there are good ones already available from BioPerl ( http://www.bioperl.org ) :

Bio::SeqIO ( docs )

Bio::SeqIO::FASTA

etc...

Edit: Title and text - I meant this to be in reply to perl_n00b not JadeNB (thanks to JadeNB for pointing this out!)