Select Code to Download

select (LIST) { block; }

select $var (LIST) { block; }

select my|local|our $var (LIST) { block; }

LIST2 = select {block;} LIST;

LIST2 = select /expr/, LIST;