http://qs321.pair.com?node_id=45549


in reply to Re: Re: Alternation in Effective Perl Programming Example
in thread Alternation in Effective Perl Programming Example

And, to the original question: I think the idea is to 'inch along'
for (split m!("(?:\\\W|.)*?"|/\*|\*/)!) {
will return the pieces ending w/ an escaped non-word char, a single char or the comment begin/end markers. Hmm, an escaped non-word char or a single char in quotes? No, as many \\\w|. as found between quotes. I guess so:
biff = "not a comment /*"; /* marker for not a comment */
won't start $in_comment too early.

a