Select Code to Download

my @extracted = extract { ... } @list;

my @extracted;
my $c = 0;
...
        $c++;
    }
}

my @extracted = grep { ... } @list;
@list = grep { not ... } @list;

my $filter = sub { ... };
my @extracted = grep { $filter->() } @list;
@list = grep { not $filter->() } @list;