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