523066680

use utf8;
use Encode;
my $str='
_$abctitle_大中国=小日本, 美国佬!
_$cdectitl_大中华=小日本, 英国佬!';

while ( $str =~ /_\$\w+_[^=]*=(.+)$/gm) { print encode('gbk', $1),"\n" }
复制代码

Perl, 保存为 utf-8 执行

结果按GBK输出

小日本, 美国佬!
小日本, 英国佬!
复制代码

523066680

'$abctitle' 字面强行保留原样（还是perl）

my $k1 = '$abctitle';
my $k2 = '$cdectitl';
while ( $str =~ /_(?:\Q$k1\E|\Q$k2\E)_[^=]*=(.+)$/gm) { print encode('gbk', $1),"\n" }
复制代码

或者在 $ 前面加斜杠，起码没有把它们从字面上拆开或者从中间插入其他符号

while ( $str =~ /_(?:\$abctitle|\$cdectitl)_[^=]*=(.+)$/gm) { print encode('gbk', $1),"\n" }
复制代码