PERL中包含" - "的文件名问题

my $filename = "file-with-dash.txt";
open(my $fh, '<', $filename) or die "Can't open $filename: $!";

my $filename = "file\-with\-dash.txt";
open(my $fh, '<', $filename) or die "Can't open $filename: $!";

my @files = glob("*");
foreach my $filename (@files) {
    if ($filename =~ /^.*\-.*$/) {
        # 处理带有破折号的文件名
    }
}