Oben steht es. Fehlermeldung in der Zeile mit dem Regex. Dann mal so versuchen:
$text =~ s/__([-_\.a-zA-Z]+?)(?:\((.+?)\))*__/$Self->_analyse_ph($1,(defined $2 ? $2 : undef))/gme;