EXTRACT FASTA SEQUENCE FROM ORIGINAL FASTA FILE DEPENDING ON ANOTHER SEQUENCE HEDAER FILE

I have two files: File 1: contain many FASTA sequences

84C2_Locus_14_Transcript_1/3_Confidence_0.571_Length_1244 AAACTAGTCAATAGAGAAAATCCAAAGTGGATGAAATTGAAGTGATTGTATGGCACAAGT...so on

84C2_Locus_14_Transcript_2/3_Confidence_0.857_Length_1961 AAACTAGTCAATAGAGAAAATCCAAAGTGGATGAAATTGAAGTGATTGTATGGCACAAGT...so on

84C2|Locus_15_Transcript_1/9_Confidence_0.190_Length_757 ATTTGCTCGGAAAAACACTTCTCGTGGAACTTGTTAGCGCTGAGCTTGATCCCAAGACGA.....so on

84C2_Locus_15_Transcript_5/9_Confidence_0.333_Length_1841 ATTTGCTCGGAAAAACACTTCTCGTGGAACTTGTTAGCGCTGAGCTTGATCCCAAGACGA....so on

File2: only the sequence headers so many 84C2_Locus_14_Transcript_1/3_Confidence_0.571_Length_1244 84C2_Locus_14_Transcript_2/3_Confidence_0.857_Length_1961 84C2_Locus_14_Transcript_3/3_Confidence_0.571_Length_1248 84C2_Locus_15_Transcript_1/9_Confidence_0.190_Length_757 ........ many more

my output file should be contain the sequence associated with header. i.e. matching the sequence header file (file2) header portion with original fasta sequence file (file1) and those headers match the fasta sequence header in file 1 only those sequences store in another output file containing header with sequence.Just like this:

Original output file should like this:

84C2_Locus_15_Transcript_5/9_Confidence_0.333_Length_1841 ATTTGCTCGGAAAAACACTTCTCGTGGAACTTGTTAGCGCTGAGCTTGATCCCAAGACGA......so on

Please suggest me the way in perl which is applicable for my problem.