Select Code to Download

while (...) {
    if (/foo/) {
...
    }
    ...
}

my @list = qw /foo bar foo/;
for my $x (1, 2) {
...
        }
     }
}