使用perl查找在一个模式之后另一个模式之前的单词

#!/usr/bin/perl

use strict;
use warnings;

# 输入文本
my $text = "This is a sample text. The word 'before' is before the word 'after'.";
# 模式之前的内容
my $before_pattern = "before";
# 模式之后的内容
my $after_pattern = "after";

# 使用split函数将文本按照模式分割成数组
my @words = split /(?<=\b$before_pattern\b)(?=\b$after_pattern\b)/, $text;

# 遍历数组，输出匹配到的单词
foreach my $word (@words) {
    # 去除空格和标点符号
    $word =~ s/[[:punct:]]//g;
    $word =~ s/\s//g;
    print "$word\n";
}

is
the
word