($results[NAME]) = $result =~ m&<TR>\s*<TD\s*BGCOLOR="\#FEFE99"\s*VALIGN="top"\s*NOWRAP>Entry\s*name</TD>\s*
<TD\s*VALIGN="top"\s*COLSPAN="5">\s*<b>\s*([^<]+?)\s*</b></TD>\s*</TR>&xis;
}
+ if (not defined $results[NAME]) {
+ ($results[NAME]) = $result =~ m{<TITLE>[^:]+:\s*[^\*]+\*[^\*]+\*\s*([^-]+)}xis;
+ $results[NAME] =~ s/\s*$// if defined $results[NAME];
+ $results[NAME] =~ s/^\s*$// if defined $results[NAME];
+ $results[NAME] =~ s/\d+\s*kDa\s*protein// if defined $results[NAME];
+ $results[NAME] =~ s/\s*similar to .+// if defined $results[NAME];
+ }
$results[NAME] ||= 'NO NAME';
$results[NAME] =~ s/_HUMAN//;