Select Code to Download

use List::Part;
($letters, $numbers)=part { /\d/ } qw(a b c 1 2 3);

sub part(&@) {
    my $code=shift;
    my @ret;
...
    
    return @ret;
}