Select Code to Download

my (@dir, @other);
push @{ -d ? \@dir : \@other } for readdir DH;

my(@dir, @other) = part [ -d, ! ] readdir DM;

(@foo,@bar,@zap,@slop) := part [ /foo/, /bar/, /zap/, ! ] @source;