print "<<$_>>\n" for "WhateverFooBlahBarMoreFooStuffBarMore" =~ /Foo\K.*?(?=Bar)/gx;

##</code><code>##

print "<<$_>>\n" for "WhateverFooBlahBarMoreFooStuffBarMore" =~ /Foo(.*?)Bar/gx;