Select Code to Download

$ perl -MO=Deparse,-p crates
($what = '[box]');
foreach $_ (('in[box]', 'out[box]', 'white[sox]')) {
...
    }
}
crates syntax OK