Perl，递归查找和替换文本文件中的列表？

#!/usr/bin/perl

use strict;
use warnings;

# 递归查找和替换函数
sub recursive_search_replace {
    my ($dir, $search, $replace) = @_;

    # 打开目录
    opendir(my $dh, $dir) or die "无法打开目录 $dir: $!";
    my @files = readdir($dh);
    closedir($dh);

    # 遍历目录中的文件和子目录
    foreach my $file (@files) {
        next if ($file eq '.' or $file eq '..');
        my $path = "$dir/$file";

        # 如果是目录，则递归调用函数
        if (-d $path) {
            recursive_search_replace($path, $search, $replace);
        }
        # 如果是文件，则进行查找和替换
        elsif (-f $path) {
            open(my $fh, '<', $path) or die "无法打开文件 $path: $!";
            my @lines = <$fh>;
            close($fh);

            # 替换文本
            foreach my $line (@lines) {
                $line =~ s/$search/$replace/g;
            }

            # 写入替换后的内容
            open(my $fh, '>', $path) or die "无法写入文件 $path: $!";
            print $fh @lines;
            close($fh);
        }
    }
}

# 调用递归查找和替换函数
my $dir = '/path/to/directory';  # 替换为实际的目录路径
my $search = 'old_text';
my $replace = 'new_text';
recursive_search_replace($dir, $search, $replace);