Select Code to Download

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

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