Select Code to Download

my @results;
while (...) {
   ...
   push @results, ...;
}

my $found = 0;
my $match;      # Only meaningful when $found is true.

...

my $var1;
my $var2;
...
   $var1 = ...;
   $var2 = ...;
}