use CGI を使ってるんですが、
フォームで
<INPUT type="hidden" name="id" value="test_id">
というタグがあるので、これを受け取るのに

use CGI;
my $q = new CGI;
$q->param('id');

で受け取れるんですが、これそのものを正規表現にかけたいんです。例えば
例えば、@list にIDのリストが入ってるとして、

if(join(',',@list) =~ /$q->param('id')/){
　　print "あなたのIDはリストに含まれています！";
}

こんなかんじで。
でも正規表現内に $q->param('id') な記述が許されないようなので

my $a = $q->param('id');
if(join(',',@list) =~ /$a/){
　　print "あなたのIDはリストに含まれています！";
}

と書かなくてはならない、これがめんどくさい！
どうにか１行で書けないもんでしょーか？