% perl -E 'say qr{foo}i'
(?^ui:foo)
% 

##</code><code>##

% perl -E 'say qr{foo}g'
Unknown regexp modifier "/g" at -e line 1, near "say "
Execution of -e aborted due to compilation errors.
%