Select Code to Download

$ 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);
}