在Perl中用qr动态生成正则表达式

今天在写Perl脚本时，每次用正则表达式替换的内容都有可能不一样，于是，我就需要动态生成一个正则表达式。

例如，我这次的正则表达式可能是
^(3) 次的表达式可能就是
^(3)

于是我用if elsif语句根据情况选择不同的表达式，即
$express = qr/^(3)
或是
$express = qr/^(3)/

这样，我就只要一个语句\(line =~ s/\)express/$input_content/;就可以动态处理了。

在这里，关键是用qr这个操作符。