Re: Capturing groups where the ending is optional

I think you're asking for

/ ^ ( (?: (?!\Q$key\E). )*  ) ( .* ) /xs
[download]

By the way, you shouldn't be using \1 and \2 in the substitution expression (as Perl told you through warnings you apparently ignored). \1 and \2 are regex atoms that instruct the regex engine to match first and second captured string respectively. It makes no sense to use them in the substitution expression. Use $1 and $2 instead.

Comment on Re: Capturing groups where the ending is optional Select or Download Code

Replies are listed 'Best First'.
Re^2: Capturing groups where the ending is optional by cwm9 (Initiate) on Jan 14, 2018 at 23:49 UTC
Thank you. I'll examine this code. As for the $1 vs \1, there were no warnings --- I'm only using perl from the command line in a bash script. I'm pretty much a complete perl noob. Thank you for helping.	[reply]
Re^3: Capturing groups where the ending is optional by AnomalousMonk (Archbishop) on Jan 15, 2018 at 03:48 UTC
... there were no warnings --- I'm only using perl from the command line .... I'm pretty much a complete perl noob. Perl noobs in particular should always enable warnings and strictures. One way to do this from the command line is `perl -wMstrict -e "perl code here ..." whatever else ...` (double-quotes for Windoze, single-quotes otherwise). Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]