$sortedproteinnamesstring = join '|', reverse sort map { quotemeta } @proteinnames;
$line =~ s/($sortedproteinnamesstring)/\*\*$1\*\*/ig;