$ perl -E'say qr/foo(?:$).*^bar/ms'
(?^ums:foo(?:$).*^bar)