Perl字符串替换：匹配，但不替换，正则表达式的一部分

Question

假设我在Perl中有一个字符串我正在尝试匹配并替换为东西：

$string =~ s/[^a-zA-Z]$find[^a-zA-Z]/$replace/g;

如图所示，我想用非字母字符替换两侧包围的所有内容。但是，当我替换字符串时，我不想也替换这些字符：它们只是正确匹配所必需的。如何告诉Perl正则表达式避免替换围绕$find的内容？

Answer 1

将它们存储为匹配的组，并在替换字符串中引用它们：

$string =~ s/([^a-z])$find([^A-Z])/\1$replace\2/gi;

Answer 2

使用look-around assertions。

s/(?<=[^a-zA-Z])$find(?=[^a-zA-Z])/$replace/g