正则表达式替换的问题

skywarship

替换都写成这种形式
$foo =~ s/hoge1/hoge2/;

现在让hoge1和hoge2是变量，变成
$foo =~ s/$hoge1/$hoge2/;

但是这样当$hoge2中有$1等对匹配内容的引用时，perl不会进行替换，
如何让$1能置换为匹配内容呢？

例如：

待替换串是KB123456时

$hoge1 = KB(\d+)
$hoge2 = KB-$1

期待结果是KB-123456
实际结果是KB-$1

justlooks

echo "KB12345"|perl -ne 'chomp;s/([A-Z][a-z]*)(\d+)/$1-$2/;print'

leigh111

use strict;
use warnings;
my $foo = "KB123456";
$foo =~ s/KB(\d+)/KB-$1/;
print $foo;

只能这样写吧

skywarship

替换部分写成变量时perl不会把变量的内容当表达式解析么？
选项上加e也只是显示地写明表达式时才有效。

ttcn_cu

好难啊,期待高人解答