in reply to Extracting a parenthesized fragment from a string

Could you elaborate on what that (*ACCEPT) is supposed to be doing?

In Section Seekers of Perl Wisdom