$ perl -wE 'qr{(?g:)}'
Useless (?g) - use /g modifier in regex; marked by <-- HERE in m/(?g <-- HERE :)/ at -e line 1.