Write a Perl program that prints a BLAST formatted pairwise alignment in FASTA format
with Query and Sbjct as the sequence names. The input is in the file called "blast.out".

Submit your solution as a file called <firstname><lastname>HW8.pl to the grader
Hareesh at hc44@njit.edu and also a hardcopy in class on Oct 20th.

Use the following as an example input file blast.out. Copy and paste the lines
below into a file called blast.out and use that to test your program. 

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