grep a expression in an array of string with Perl - regex

Question

I'm trying to grep a special pattern in an array of strings.
My array of strings is like this :
#list=("First phrase with \"blabla - Word\" and other things "
,"A phrase without... "
,"Second phrase with \"truc - Word\" and etc... "
,"Another phrase without... "
,"Another phrase with \"thing - Word\" and etc... ");
and I tried to grep the pattern "..... - Word" with this function :
#keyw = grep { /\".* Word\"/} (#list);
and I have the following result :
print (Dumper ( #keyw));
$VAR1 = 'First phrase with "blabla - Word" and other things ';
$VAR2 = 'Second phrase with "truc - Word" and etc... ';
$VAR3 = 'Another phrase with "thing - Word" and etc... ';
My grep function is ok to grep the phrase but I would like to grep just the pattern and get the following result :
$VAR1 = '"blabla - Word"';
$VAR2 = '"truc - Word"';
$VAR3 = '"thing - Word"';
Do you know how to reach this result ?

Answer 1

Use map instead of grep:
my #keyw = map { /\"[^"]*? Word\"/ ? $& : () } #list;
It just returns $& (whole match) if the pattern matches and () (empty list) if it does not.
Little caveat: don't use $& with with Perl < 5.18.0.
Here's Casimir et Hippolyte's simpler solution:
my #keyw = map { /(\"[^"]*? Word\")/ } #list;
It works since m// returns a list of captured groups.

Answer 2

Why can't we just use a normal loop?
use strict;
use warnings;
use Data::Dump;
my #phrases = (
"First phrase with \"blabla - Word\" and other things ",
"A phrase without... ",
"Second phrase with \"truc - Word\" and etc... ",
"Another phrase without... ",
"Another phrase with \"thing - Word\" and etc... ",
);
my #matches;
for (#phrases) {
next unless /("[^"]+Word")/;
push(#matches, $1);
}
# prints ["\"blabla - Word\"", "\"truc - Word\"", "\"thing - Word\""]
dd(\#matches);