Select Code to Download

while(<FILE>) { do stuff }
# rather than
...
    for (@$ref) { do stuff }
  return $ref;
}

# this is short but memory intensive
do_stuff() if grep { /something/ } @array
...
    do_stuff();
  last;
}