\K available with Perl version 5.10+.
>perl -wMstrict -le "my $s = 'xxx Job Opps foo bar Job Opps hoo ha Job Opps are real cool'; ;; my $job_opps = qr{ \b Job \s+ Opps \b }xms; my ($cool) = $s =~ m{ (?: $job_opps .*){2} $job_opps \K .* }xmsg; print qq{'$cool'}; " ' are real cool'
In reply to Re: Regex Help!
by AnomalousMonk
in thread Regex Help!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |