#!/usr/bin/perl -w

use strict;

sub filter {
    my ($record, $filter) = (@_);
    my (@result);
    #print ("filter: record: @$record\n");
    my $f;
    my $match = 0;
    for $f (@$filter) {
	my $ff = $f->[0];
	my $fr = $f->[1];
	#print ("filter: filter: $ff $fr\n");
	if ($record->[$ff] =~ m/$fr/) {
	    #print ("filter: filter: match\n");
	    $match++;
	}
    }
    return $match;
}

my $record;
while (<>) {
    $record = [split];
    if (filter (
	    $record,
	    [ [5, '\.cgi$'], [5, '\.html$'] ]
	  )
    ) {
	    print ("@$record\n");
    }

}


