#!/usr/bin/perl

foreach $n (@ARGV) {
    $n =~ s/\.ko$//;
    $mods{"\"$n\""} = $n;
}

while (<STDIN>) {
    chop;
    @a = split;
    if ($mods{$a[2]} || $mods{$a[4]}) {
	print "$_\n";
    } elsif ($_ =~ /Card:Intel.*81[05]/) {
	print "$_\n";
    } elsif ($a[4] =~ /\"ignore\"/) {
	print "$_\n";
    } elsif ($a[4] =~ /\"unknown\"/) {
	print "$_\n";
    }

}
