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