DB<1> print map {$1 if /oo/} qw /foo bar oof rab foo/

  DB<2> print map {$1 if /(oo)/} qw /foo bar oof rab foo/
oooooo
  DB<3> @c =  map {$1 if /(oo)/} qw /foo bar oof rab foo/

  DB<4> p "@c"
oo  oo  oo
  DB<5> ($d) =  map {$1 if /(oo)/} qw /foo bar oof rab foo/

  DB<6> p $d
oo
  DB<7> ($d) =  map {$1 if /(ar)/} qw /foo bar oof rab foo/

  DB<8> p $d

  DB<9> ($d) =  map {$1 if /(ar)/} qw /foo bar oof rab foo/

  DB<10> p $d