Help for this page
$ perl -e'use strict; use warnings; grep { no strict "refs"; }qw(x); ... grep { 0; no strict "refs"; }qw(x); ' $
{ no strict "refs"; grep {0;} qw(x); }