小例子：
perl -e '$s="aaabbcc";$c=()=$s=~/a/g;print"$c\n$s\n"'(m//g) 输出
3
aaabbcc
而perl -e '$s="aaabbcc";$c=()=$s=~s/a/x/g;print"$c\n$s\n"'(s///g) 输出
1
xxxbbcc
我想同时做这两件事而不必先匹配：替换并知道替换的数量。显然 as///g 不会返回标量上下文中的替换次数——不像 m//g 对匹配项所做的那样。这可能吗？如果是，如何？
perlre、perlvar 和 perlop 没有提供任何帮助（或者我只是找不到它）。
s///确实返回在标量上下文中进行的替换次数。来自perlop（强调添加）：
s/PATTERN/REPLACEMENT/msixpogce
在字符串中搜索模式，如果找到，则用替换文本替换该模式并返回进行的替换次数。否则它返回 false（特别是空字符串）。
您的问题是您没有s///在标量上下文中调用。您在列表上下文中调用它，然后在标量上下文中评估分配（到空列表）。标量上下文中的列表赋值返回表达式右侧产生的元素数。由于s///返回单个值（在列表和标量上下文中），即使s///没有做任何事情，元素的数量也总是一个。
perl -E "$s='aaabbcc'; $c=()=$s=~s/x/y/g; say qq'$c-$s'" # prints "1-aaabbcc"
要s///在标量上下文中调用，请省略=()=伪运算符。
perl -E "$s='aaabbcc'; $c=$s=~s/a/x/g; say qq'$c-$s'" # prints "3-xxxbbcc"