Write a Perl program that converts a BLAST formatted pairwise alignment into FASTA and stores the
FASTA alignment in the file "dna.fasta". Use Query and Subject as the sequence names. The input is
in the file called "blast.out". 

Submit your solution as a file called <firstname>HW8.pl to the teaching assistant Shikha Kaushal
(shikha.kaushal@gmail.com). Replace <firstname> with your first name.

Use the following as an example input file blast.out:

sp	P08684
CP3A4_HUMAN	Cytochrome P450 3A4 (EC 1.14.13.67) (Quinine 3-monooxygenase) 503 AA
(CYPIIIA4) (Nifedipine oxidase) (Cytochrome P450 3A3)
(CYPIIIA3) (HLp) (Taurochenodeoxycholate
6-alpha-hydroxylase) (EC 1.14.13.97) (NF-25) (P450-PCN1)
[CYP3A4] [Homo sapiens (Human)]

 Score =  938 bits (2425), Expect = 0.0
 Identities = 467/479 (97%), Positives = 467/479 (97%)

Query: 3   YGTHSHGLFKKLGIPGPTPLPFLGNILSYHKGFCMFDMECHKKYGKVWGFYDGQQPVLAI 62
           YGTHSHGLFKKLGIPGPTPLPFLGNILSYHKGFCMFDMECHKKYGKVWGFYDGQQPVLAI
Sbjct: 25  YGTHSHGLFKKLGIPGPTPLPFLGNILSYHKGFCMFDMECHKKYGKVWGFYDGQQPVLAI 84

Query: 63  TDPDMIKTVLVKECYSVFTNRRPFGPVGFMKSAISIAEDEEWKRLRSLLSPTFTSGKLKE 122
           TDPDMIKTVLVKECYSVFTNRRPFGPVGFMKSAISIAEDEEWKRLRSLLSPTFTSGKLKE
Sbjct: 85  TDPDMIKTVLVKECYSVFTNRRPFGPVGFMKSAISIAEDEEWKRLRSLLSPTFTSGKLKE 144

Query: 123 MVPIIAQYGDVLVRNLRREAETGKPVTLKDVFGAYSMDVITSTSFGVNIDSLNNPQDPFV 182
           MVPIIAQYGDVLVRNLRREAETGKPVTLKDVFGAYSMDVITSTSFGVNIDSLNNPQDPFV
Sbjct: 145 MVPIIAQYGDVLVRNLRREAETGKPVTLKDVFGAYSMDVITSTSFGVNIDSLNNPQDPFV 204

Query: 183 ENTKKXXXXXXXXXXXXSITVFPFLIPILEVLNICVFPREVTNFLRKSVKRMKESRLEDT 242
           ENTKK            SITVFPFLIPILEVLNICVFPREVTNFLRKSVKRMKESRLEDT
Sbjct: 205 ENTKKLLRFDFLDPFFLSITVFPFLIPILEVLNICVFPREVTNFLRKSVKRMKESRLEDT 264

Query: 243 QKHRVDFLQLMIDSQNSKETESHKALSDLELVAQSIIFIFAGYETTSSVLSFIMYELATH 302
           QKHRVDFLQLMIDSQNSKETESHKALSDLELVAQSIIFIFAGYETTSSVLSFIMYELATH
Sbjct: 265 QKHRVDFLQLMIDSQNSKETESHKALSDLELVAQSIIFIFAGYETTSSVLSFIMYELATH 324

Query: 303 PDVQQKLQEEIDAVLPNKAPPTYDTVLQMEYLDMVVNETLRLFPIAMRLERVCKKDVEIN 362
           PDVQQKLQEEIDAVLPNKAPPTYDTVLQMEYLDMVVNETLRLFPIAMRLERVCKKDVEIN
Sbjct: 325 PDVQQKLQEEIDAVLPNKAPPTYDTVLQMEYLDMVVNETLRLFPIAMRLERVCKKDVEIN 384

Query: 363 GMFIPKGVVVMIPSYALHRDPKYWTEPEKFLPERFSKKNKDNIDPYIYTPFGSGPRNCIG 422
           GMFIPKGVVVMIPSYALHRDPKYWTEPEKFLPERFSKKNKDNIDPYIYTPFGSGPRNCIG
Sbjct: 385 GMFIPKGVVVMIPSYALHRDPKYWTEPEKFLPERFSKKNKDNIDPYIYTPFGSGPRNCIG 444

Query: 423 MRFALMNMKLALIRVLQNFSFKPCKETQIPLKLSLGGLLQPEKPVVLKVESRDGTVSGA 481
           MRFALMNMKLALIRVLQNFSFKPCKETQIPLKLSLGGLLQPEKPVVLKVESRDGTVSGA
Sbjct: 445 MRFALMNMKLALIRVLQNFSFKPCKETQIPLKLSLGGLLQPEKPVVLKVESRDGTVSGA 503