perl 解析 android 字符串资源的 %1$s 匹配问题

需要使用 perl 匹配 android字符串资源 strings.xml 中的特殊字符 %1$s，发现如下代码总是不成功：

my @patterns=("%1$s", "%2$s");

while(<xml>) {
  my $pat = $patterns[0];
  if(/$pat/) {
     print "before: $_\n";
  $_=~s/$pat/haha/g;

print "after: $_\n";

 }}



根据网上建议，使用 quotemeta 不行，使用 \Q , \E 也不行，只能匹配到 %1， 不能匹配到$s。
偶然间把 @patterns 元素从双引号改为单引号，居然就OK了。