在perl正则表达式中使用变量

在变量两端应该加上\Q和\E进行消元,如下:

$b=~/\Q$a\E/

避免变量中存在的元字符产生影响