$text =~ s/__([-_\.a-zA-Z]+?(?:\(.+?\))*)__/$Self->_analyse_ph($1)/gme;