如何用Perl移除文件中指定的XML声明字符串？

我有一个文件，内容示例如下：

<RECORD><JOSE><?xml version="1.0" encoding="UTF-8" standalone="no" ?></JOSE><ISMAEL><?xml version="1.0" encoding="UTF-8" standalone="no" ?></ISMAEL><NEWFILE><?xml version="1.0" encoding="UTF-8" standalone="no" ?></NEWFILE></RECORD>

我需要移除文件中所有出现的字符串：<?xml version="1.0" encoding="UTF-8" standalone="no" ?>。我刚学Perl一周，写了下面的代码但无法正常运行，求帮忙排查问题：

use strict;
use warnings;

my $dir = path('D:\Programs\PERL\perl_tests'); # /dir

my $file = $dir->child("tobeclean.txt"); # /file.txt

open(REMFILE,"<",$file) || die "couldn't open $file: $!\n";

while (<REMFILE>) {
     s{<?xml version="1.0" encoding="UTF-8" standalone="no" ?>}{};
    print;
}

close(REMFILE);

你的代码存在几个关键问题，逐一说明并修正：

• 正则特殊字符未转义：?是Perl正则的元字符，代表匹配前一个元素0次或1次。你要匹配的字符串里，<后的?和末尾的?都是普通字符，必须转义才能被正确识别。最省心的方式是用\Q和\E包裹目标字符串，自动转义所有特殊字符。
• 缺少模块加载：path()函数来自Path::Tiny模块，代码里没写use Path::Tiny;，运行时会报错提示path未定义。如果不想用这个模块，直接写完整文件路径即可。
• 未开启全局替换：默认的s///只会替换每行第一个匹配项，要移除所有匹配，必须添加g修饰符。
• 建议使用词法文件句柄：旧式裸字文件句柄（如REMFILE）不是最佳实践，用词法变量（如$fh）作为文件句柄更安全。

修正后的代码（使用Path::Tiny版本）：

use strict;
use warnings;
use Path::Tiny; # 加载Path::Tiny模块

my $dir = path('D:\Programs\PERL\perl_tests');
my $file = $dir->child("tobeclean.txt");

# 使用词法文件句柄
open my $fh, '<', $file or die "couldn't open $file: $!\n";

while (<$fh>) {
    # \Q和\E自动转义特殊字符，g修饰符实现全局替换
    s{\Q<?xml version="1.0" encoding="UTF-8" standalone="no" ?>\E}{}g;
    print;
}

close $fh;

如果不想依赖Path::Tiny，可以简化路径部分：

use strict;
use warnings;

my $file = 'D:\Programs\PERL\perl_tests\tobeclean.txt';

open my $fh, '<', $file or die "couldn't open $file: $!\n";

while (<$fh>) {
    s{\Q<?xml version="1.0" encoding="UTF-8" standalone="no" ?>\E}{}g;
    print;
}

close $fh;

内容的提问来源于stack exchange，提问作者Ismael Hernandez