我可以将Perl regex替换字符串放在引用$ 1，$ 2等的变量中吗？

Question

在此代码段中，我希望$str1和$str2最终包含相同的值（"ba"）。

#!/usr/bin/perl

my $replacement = '$2$1';

my $str1 = "ab";
my $str2 = "ab";

$str1 =~ s/(.)(.)/$2$1/g;
$str2 =~ s/(.)(.)/$replacement/g;

print "$str1\n$str2\n";

我希望能够从用户输入中提供$replacement模式，以便用户可以使用$1和朋友。

我该如何做？