Perl：使用变量代替

Question

  

可能重复：
  How to use a variable in the replacement side of the Perl substitution operator?

我想做点什么

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

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