打印Perl正则表达式匹配项

Question

在我正在处理的程序中，我试图输入一个txt文件，然后打印一对引号中包含的txt位。

假设我已将txt文件放入每个行作为数组元素的数组中，这就是我一直认为可行的方法，但是不幸的是：

txt file contents:
Lorem ipsum dolor sit amet
consectetur "adipisicing elit"
sed "do" eiusmod tempor incididunt
ut "labore et dolore" magna aliqua

CODE:
foreach(@arr)
{
    print $1 if /("*")/g;
}

Output: 
""

Answer 1

 ...
foreach (@arr) {
    print $1 for /(".*?")/g;
}
 ...

Answer 2

#!/usr/bin/perl

use strict;
use warnings;

foreach(<DATA>) {
    print $1 if /(".*")/;
}

__DATA__
txt file contents:
Lorem ipsum dolor sit amet
consectetur "adipisicing elit"
sed "do" eiusmod tempor incididunt
ut "labore et dolore" magna aliqua