perl find_strings.pl DBtest.txt databaseJoinDan.txt