regex - Perl：使用变量代替

Question

可能重复：
如何在 Perl 替换运算符的替换端使用变量？

我想做类似的事情

$sub = "\\1";
$match = "hi(.*)";
$str = "hi1234"
$res = $str;
$res =~ s/$match/$sub/g

我希望它返回，1234但在这种情况下它返回\1。即我希望它等同于有s/$match/\1/g没有人知道如何做到这一点？