>perl -le"print qr/foo/"
(?-xism:foo)

>perl -le"print qr/foo/m"
(?m-xis:foo)