Select Code to Download

my @matches = map { $_->result} grep {
                             my $re = $_->regex; 
                                     $matchtext =~ /$re/i;
                                    } @x;