#!/usr/bin/perl
use strict;
use warnings;

# build regular expression from command line args
my @res;
foreach my $arg (@ARGV) {
    push @res, qr/$arg/;
}

while (<STDIN>){
    my $fail = 0;
    foreach my $re (@res) {
        $fail ||= $_ !~ $re;
    }
    print unless $fail;
}