perl -wE'say qr/foo/'

perl 5.10.1:
(?-xism:foo)

ab 5.14:
(?^u:foo)