This has been addressed in the past -> Parse Fasta Format
UPDATE I can't find the original post!!!!
Here is the original post:
http://www.perlmonks.com/?node_id=308170