How can I get perl grep do perform regex expression capturing

Question

I'm trying to capture a substring using regex capturing with grep by getting the content of (.*) in the code below.

            @substring = grep /^test-results(.*)/,@$(array_reference);

This is not working....

Answer 1

In list context, a regex match returns a list of what its captures matched, so all you need is:

@substrings = map /^test-results(.*)/, @$array;

Answer 2

Probably the map function is a better fit for what you want. You're looking for something similar to the following (untested) code:

@substrings = map { /^test-results(.*)/ ? $1 : () } @{ $arrayref };