$identifier = qr/(?<identifier> \w+($brackets)?( \s*(\.|->)(?&identifi
+er))?)/;

##</code><code>##

(?^:((?^:(?<identifier> \w+... (etc)


##</code><code>##

<identifier> \w+