if ($line =~ /\*\*([^\*]+)\*\*\s(kinase|isoform|protein|peptide|ligand)\s\$\$([^\$]+)\$\$\s[\(\,]\s\*\*([^\*]+)\*\*\s[\)\,]/) {
		$line =~ s/\*\*([^\*]+)\*\*\s(kinase|isoform|protein|peptide|ligand)\s\$\$([^\$]+)\$\$\s[\(\,]\s\*\*([^\*]+)\*\*\s[\)\,]/**$1_$2_$3_($4)**/g;
		print WF "$line\n";
	}