sub filter_good_orgs { 
print "Content-type: text/html\n\n";
       
    $SQL7 = "SELECT * FROM badwords";
    &Do_SQL7;
    $pointer7 = $sth7->fetchrow_hashref;
    $goodorg = $pointer7->{'goodorgs'};
    $lc_org = lc($organization);

    
    @orgs = split /\n/,$goodorg;
    foreach $goodorg (@orgs) {
    
	print "Word: $goodorg, Org: $lc_org Found: $found<br>";
            if ($lc_org =~ /$goodorg/i)  {
               $found = 1;
        	} 
        }
        
        print "<br>Found: $found<br>";
        if (!$found) {
        &error_suspect_org;
        }
   
    return;
    
    
} # end filter_good_orgs subroutine

##</code><code>##

first
national
bank

##</code><code>##

Word: first , Org: first national bank Found: 
Word: national , Org: first national bank Found: 
Word: bank , Org: first national bank Found: 

Found: 
Content-type: text/html

##</code><code>##

 if ($goodorg =~ /$lc_org/i)  {
               $found = 1;
        	}