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