$ perl -e'use strict; use warnings;
grep { no strict "refs"; }qw(x);
'
"no" not allowed in expression at -e line 2, at end of line
BEGIN not safe after errors--compilation aborted at -e line 2.
$ perl -e'use strict; use warnings;
grep { 0; no strict "refs"; }qw(x);
'
$