我想在匹配使用perl找到的模式后向数组中添加一个元素

Question

我已将文件的所有行复制到数组并在模式匹配时循环此数组以进行模式匹配，我想将行添加到同一数组并在另一个文件中打印。

my @lines = <FILE_IN>;
foreach my $line (@lines){
if($line =~m/\s(\w*)_region\s/){
print $line;
}

我尝试过模式匹配，并希望在搜索后添加一个元素。

Answer 1

open my $ifile,'<:encoding(UTF-8)', '/path/to/file.txt' || die $!;
while (my $line = <$ifile>) {
    chomp $line;
    if ($line =~m/\s(\w*)_region\s/x) {
        print $line
    }   
}
close $ifile;