咱们先拆解你遇到的两个核心问题：未初始化变量的报错和无法去除姓名开头空白，再顺便帮你推进原本的首字母大写需求。

报错原因：Use of uninitialised value $_ in substitution #

你写的@arr = s/^\s+//g;是错误的根源：

• Perl的s///替换默认作用在$_变量上，但此时你并没有把数组元素赋值给$_，$_处于未初始化状态，所以触发了这个报错。
• 更关键的是，s///返回的是替换成功的次数（数字），不是处理后的字符串，你把这个数字赋值给@arr，完全违背了你的需求。

无法去除空白的问题 #

除了上面的错误，你的代码还有几个逻辑问题：

1. for each是语法错误：Perl里正确的写法是foreach或者简写for。
2. split的用法不当：split(/M.\.\s/g, $name)里的g修饰符是多余的，而且如果姓名以Mr./Ms.开头，split会生成一个空字符串元素，后续处理会出问题。
3. 没有遍历处理数组元素：你需要逐个处理@arr里的每个姓名部分，而不是直接对数组用替换。

修正后的代码 #

下面是修复了所有问题，同时实现去除开头空白+首字母大写的代码：

open DATA, "<", "name.txt" or die "Can't open file: $!"; # 加上错误捕获，避免文件打开失败没提示
my @file = <DATA>; 
foreach my $name (@file) { 
    chomp $name; 
    my @parts; 
    # 拆分掉Mr./Ms.，同时跳过空元素
    @parts = grep { $_ ne '' } split(/M[rs]\.\s/, $name); 
    # 遍历每个部分，去除开头空白+首字母大写（姓氏已经大写，这里处理名字）
    foreach my $part (@parts) {
        $part =~ s/^\s+//; # 去除开头空白
        $part =~ s/^(\w)/\U$1/; # 首字母大写（如果需要全小写后再大写，可以先lc($part)）
    }
    print join(' ', @parts), "\n"; 
}
close DATA; # 记得关闭文件句柄

关键细节说明 #

• 错误捕获：打开文件时加上or die "Can't open file: $!"，能帮你快速排查文件不存在、权限不足等问题。
• grep过滤空元素：解决split开头匹配时产生空字符串的问题。
• 逐个处理数组元素：用foreach遍历@parts，对每个元素单独做替换操作，这才是Perl处理数组元素的正确方式。
• 首字母大写的补充：如果名字部分是全小写的，你可以改成$part = ucfirst(lc($part));，这样能确保只有首字母大写，其余小写。

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