perl 正则表达式 my $a = "abc123xyz"; my $tmp = "123"; if ($a /abc${tmp}xyx/) {block} 报错如何才能匹配上呢,中间我要加上一个变量,或者其他方法可以实现.any help will be great appreciated

perl 正则表达式 my $a = "abc123xyz"; my $tmp = "123"; if ($a /abc${tmp}xyx/) {block} 报错如何才能匹配上呢,中间我要加上一个变量,或者其他方法可以实现.any help will be great appreciated
perl 正则表达式 my $a = "abc123xyz"; my $tmp = "123"; if ($a /abc${tmp}xyx/) {block} 报错
如何才能匹配上呢,中间我要加上一个变量,或者其他方法可以实现.
any help will be great appreciated

perl 正则表达式 my $a = "abc123xyz"; my $tmp = "123"; if ($a /abc${tmp}xyx/) {block} 报错如何才能匹配上呢,中间我要加上一个变量,或者其他方法可以实现.any help will be great appreciated
报的什么错?
$a=~/abc$tmpxyx/应该就可以,perl会自动先解释变量是什么,不过貌似也可以解释为：tmpxyx是这个正则的结尾.
您这个${tmp}是什么.
$a=~/abc\Q$str1\Exyx/,要不这样?应该也可以.