在 Perl 中使用 Regexp 在两个字符串之间提取字符串

我尝试在 Perl[%L10n.msg('和')%]Perl之间提取文本，例如，如果我有类似 的代码[%L10n.msg('foo')%]，我想获取foo。

我有它的工作脚本，正如你在下面看到的那样，但它有问题，并且如你所见，它破坏了编码。

我想知道该脚本有什么问题以及如何修复它。

我的正则表达式脚本：

my (@L10n) = $content_from_file =~ /\[\%L10n\.msg\('(.*)'\)\%\]/g;

$content_from_file:

    <div class="detail-trash">
          <span class="blog-article-social-net social-net-fb">
             <svg class="svg-icon-facebook">
                <use xlink:href="[%domain.url_media%]/images/svg-sprite.svg#svg-icon-facebook"></use>
             </svg>
             [%L10n.msg('Zdielať')%]
          </span>
       <span class="previews-counter">Počet hodnotení: [%product.rating_votes%]</span>
       <a href="#" title="[%L10n.msg('Zobraziť recenzie')%]" class="previews-btn js-previews-btn">[%L10n.msg('Zobraziť recenzie')%]</a>
    </div>

当前结果：

Zdiela\x{165}
Zobrazi\x{165} recenzie')%]\" class=\"previews-btn js-previews-btn\">[%L10n.msg('Zobrazi\x{165} recenzie

要求的结果：

Zdielať
Zobraziť recenzie
Zobraziť recenzie