如何在Perl中更改文件名的大小写？

#!/usr/bin/perl

use strict;
use warnings;

my $filename = "example.txt";
my $new_filename = $filename;

# 将文件名中的小写字母更改为大写字母
$new_filename =~ s/(.*)\.(.*)/$1=uc($2)/e;

# 将文件名中的大写字母更改为小写字母
$new_filename =~ s/(.*)\.(.*)/$1=lc($2)/e;

# 使用rename函数更改文件名
rename($filename, $new_filename) or die "无法重命名文件: $!";

print "文件名已更改为: $new_filename\n";