Perl正则替换中匹配变量的引用问题

我有以下 Perl 代码：

$str_1 = "text t1 t2 // ABC";
print "\$str_1 = $str_1\n";
$str_1 =~ s/^(\S+)\s+(\S+)\s+(\S+)(.+)$/$1 ( $2 $3 )$4/;
print "\$str_1 = $str_1\n";
执行结果和预期一致：
$str_1 = text t1 t2 // ABC
$str_1 = text ( t1 t2 ) // ABC

但是我需要的匹配表达式都只能从外界读取，无法写在程序里。所以我把这两个表达式分别定义成了 $var_1 和 $var_2 两个变量，然后在正则替换时使用它们。却发现结果不对，$var_2 中的 $1 $2 $3 $4 都是原样输出的。

$var_1 = '^(\S+)\s+(\S+)\s+(\S+)(.+)$';
$var_2 = '$1 ( $2 $3 )$4';
$str_1 = "text t1 t2 // ABC";
$str_1 =~ s/$var_1/$var_2/;
print "\$str_1 = $str_1\n";
输出是：
$str_1 = $1 ( $2 $3 )$4

我把 $var_2 里的 $1 改为 \1，改为 \$1，改为 \\1，并且把 $2/3/4 也进行一样的修改，或者把 s/$var_1/$var_2/ 改为 s/$var_1/\Q$var_2\E/ 及 s/$var_1/\q$var_2\e/，结果也都不对。

请问如果通过变量赋予正则替换所需的操作，正确的方法是什么？上述代码应该如何修改？所需的替换不限于这一种替换，而是根据读取的表达式来做，各种复杂情况都有可能发生。

谢谢。