Select Code to Download

grep { ;no strict 'refs'; } qw(x);

perl -MO=Deparse
use strict;
use warnings;
...
use strict 'refs';
grep {();} 'x';
- syntax OK

grep { do{ no strict 'refs'; } } qw(x)