523066680

回复 3# hlzj88

    2楼已经给出了核心思路。相信好学的人已经能够举一反三，而不是丢一句 “经测试不成功”。

加个循环的事儿～ Perl

my $s='其他词“其他词<br>a<br>其他词”其他词';
while ($s=~s/(“[^“”]+)<br>([^“”]+”)/$1$2/) {};
print $s;
复制代码