#!c:/perl/bin/perl
print "Content-type: text/html\n\n";
open BAP, "db.txt";
@biff = ();
while (<BAP>){
    if (/foo/){ push(@biff, $_)};
    if (/bar/){ push(@biff, $_)};
    if (/baz/){ push(@biff, $_)};
    ...
}
print "@biff";
close BAP;