Select Code to Download

LABEL1: foreach my $a (@b) {
    if (...) { next LABEL1; }
...
    if (...) { next LABEL1; }
    do_something_again();
}

LABEL1:
perform_cleanup();