正则里能有变量吗。。新手

这段代码是在sql里碰到union all 就前后空行的代码 不知道这个union all要是一个变量可不可以写在 正则里呢
请指教

open  SQLTEST, ">c:\DINO.txt";
chomp($line=<STDIN>);
while (<>) {
chomp;
##print "it was $_ that i saw!\n";
$_=~s/ union\s*all /\n##################\nunion all\n####################3\n /x;   这段是否可以修改呢？my $a=$_;
print SQLTEST  "$a\n";
}
变量能放到正则里吗。。。

可以