[已解决]正则表达式的替换问题,恳请各位达人帮忙

my $s = "<div>
职位名称开始:
<!--repeat-->
<span>jobname</span>
<!--repeat-->
工作地点开始:
<!--repeat-->
<span>joblocation</span>
<!--repeat-->
</div>";

@_= ('AA','BB','CC');
if ($s =~ s/(\Q<!--repeat-->\E).*?(\Q<!--repeat-->\E)/"$1\n".shift(@_)."\n$2"/egs) {
  print $s;
}
各位都是高手阿。
非常感谢。

可能是我对于问题描述的不够,导致各位的解决方案不是很适合。
问题已经解决了。我自己试着写了一个正则,笨笨的。呵呵