Select Code to Download

for (1..3) { ... }
for (@a) { ... }
for (my $i=10; $i--; ) { ... }

while (f()) { ... }
until (f()) { ... }

{ ... }

if (f()) { ... }
unless (f()) { ... }

... while f();    Including: do { ... } while f();
... for @a;
... if f();
etc

grep { ... } @a
map { ... } @a