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


##</code><code>##

perl -MO=Deparse
use strict;
use warnings;
grep { ;no strict 'refs'; } qw(x);
^D
use warnings;
use strict 'refs';
grep {();} 'x';
- syntax OK

##</code><code>##

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