perlの正規表現で
$temp = "XXX";
if ($_ =~ /$temp/){
みたいにやるにはどうしたらいいの？(;´Д`)