$braces = qr/(?<braces>\{ ([^\{\}] | (?&braces))*? \} )/x;
$brackets = qr/(?<brackets>\( ([^\(\)] | (?&brackets))*? \))/x;
$identifier = qr/(?<identifier> \w+($brackets)?( \s*(\.|->)(?&identifier))?)/;