Help for this page
fgrep -i -w -f DBtest.txt databaseJoinDan.txt > tableUsed.txt
# find_strings.pl ... /\b($pat)\b/i and print; }
perl find_strings.pl DBtest.txt databaseJoinDan.txt