编辑代码

sub reverse_words {
    my $string = shift; # 获取传入的字符串参数
    my @words = split(/\s+/, $string); # 使用空白字符分割字符串
    my @reversed_words = reverse(@words); # 反转单词数组
    return join(' ', @reversed_words); # 用空格将单词重新连接成字符串
}

# 使用示
my $input_str = "Hello World from Perl";
my $reversed_str = reverse_words($input_str);
print "Original: $input_str\n";
print "Reversed: $reversed_str\n";