Как заставить perl grep выполнять захват регулярных выражений

Я пытаюсь захватить подстроку, используя захват регулярных выражений с помощью grep, получая содержимое (.*) в приведенном ниже коде.

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

Это не работает....