use strict;
use warnings;

my @such = qw/foo bar/; # zwei suchbegriffe
open FILE, "</meine/datei.txt" or die $!;
while ( my $zeile = <FILE> ) {
    if ( $zeile =~ /${such[0]}/ and $zeile =~ /${such[1]}/ ) {
        print $zeile;
    }
}
close FILE;