Select Code to Download

while (<HANDLE>) { ... } # same as ...
while (defined($_ = <HANDLE>)) { ... }

foreach (@list) { ... } # same as foreach $_ (@list) { ... }

$count = grep { BLOCK } LIST;
@result = grep { BLOCK } LIST;
@result = map { BLOCK } LIST;
map { BLOCK } LIST; # invalidates your warranty