$ perl -wE 'my $x = qr{ foo }; say $x'
(?^u: foo )