Select Code to Download

use strict;
use warnings;
...

@match = grep { length } map { $1 if /(2)/ } 0..9;
print scalar @match, "\n"; # is 1

my ($val) = map { /^\*\s\(?([^\)]+)\)?/ } @GET_STRING;

my $val;
for (0..9) {
...
        last;
    }
}