s/\*\*([^\*]+)\*\*\s\,\s\*\*([^\*]+)\*\*(\s\,)?/(grep {index($_,'_')>=0} $1,$2)?"**$1_($2)**":$&/ge;