>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'