Help for this page
while (my $seq = <$IN2>) { if ($seq =~ />(\w+).+aa\)\n(\w+)/m) { $name = $1; $aa = $';
>CIMG_12545 | Coccidioides immitis RS hypothetical protein (translatio +n) (95 aa) MSSQPTTLQSQTGIQRHGEISSQAQKPTTALEEDDEFEDFPVEDWPQEDAEALGPAGTNN DHLWEESWDDDDSNEEFSRQLKEELKKVEAMKQQ*