chomp(my $var = <STDIN>);
$var = qr($var);
my $pattern = qr($var1|$var2|$var3);
while (<FILE>)
{
   print if /$var/ && /$pattern/;
}