@matches = map {qr/\Q$_\E/} @ARGV;

while ($rec = <DATA>) {
  print $rec
    if @matches    # we have something to look for
      and (
        grep {$rec =~ $_}  @matches  # the number of matches found
          ) == @matches;             # equals the number specified
}

__END__

Bill Gates
Bill Bonko
John Random
Quincy Gates