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