fgrep -i -w -f DBtest.txt databaseJoinDan.txt > tableUsed.txt

##</code><code>##


# find_strings.pl

use strict;
use warnings;

my $patfile = shift;
my @pats = do { local @ARGV = ( $patfile ); <> };
chomp @pats;
my $pat = join '|', @pats;

while (<>)
{
	/\b($pat)\b/i and print;
}


##</code><code>##

perl find_strings.pl DBtest.txt databaseJoinDan.txt