如何在Perl中从ls -lrt的输出中仅查找/剪切文件名

#!/usr/bin/perl

use strict;
use warnings;

# 模拟ls -lrt的输出
my $ls_output = `ls -lrt`;

# 使用正则表达式匹配文件名
my @file_names = $ls_output =~ /(\S+)\s+\d+\s+\w+\s+\w+\s+\d+\s+\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2}\s+(\S+)/g;

# 输出文件名
foreach my $file_name (@file_names) {
    print "$file_name\n";
}