I searched CPAN for 'fasta' and found several modules for extracting sequences. You probably can find one that meets your needs.