Select Code to Download

while (<>) {
    if (1 eq (/foo/ .. (1x0))) {
        do_something();
    }
}

my $found;
while (<>) {
...
        do_something()
    }
}