In particular OP might want to check out Bio::SeqIO::fasta...
In reply to Re^2: Parsing and Modifying a flat file in perl by BioLion in thread Parsing and Modifying a flat file in perl by ad23