while (my $seq = <$IN2>) {
   if ($seq =~ />(\w+).+aa\)\n(\w+)/m) {
   $name = $1;
   $aa = $';

##</code><code>##

>CIMG_12545 | Coccidioides immitis RS hypothetical protein (translation) (95 aa)
MSSQPTTLQSQTGIQRHGEISSQAQKPTTALEEDDEFEDFPVEDWPQEDAEALGPAGTNN
DHLWEESWDDDDSNEEFSRQLKEELKKVEAMKQQ*