perl -wE 'use re::engine::TRE; print "<<$_>>\n" for "WhateverFooBlahBarMoreFooStuffBarMore" =~ /(?:Foo(.*)Bar)+?/gx'