foreach $pat (@patterns) {
if ( /$pat[1]/ && /$pat[2]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[3]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[4]/) {

##</code><code>##

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