use 5.12.0; use File::Slurp; use File::Find ; use Cwd ; my %value; open LOG, ">log/log.log" or die; while () { chomp; if (/^(.*)$/) { $value{$1} = $1 } } my $fileText = read_file("/Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Temp/ULB_text.txt", binmode => 'utf8'); $fileText = "\n" . $fileText; foreach my $thisWord (sort keys %value) { print $thisWord . "\n"; if ($fileText =~ /\n([^\n\t]*)\t[^\n]*$thisWord\b/) { say LOG $thisWord . ", " . $1; } } close LOG; __DATA__ Aaron Abel Abiathar Abijah Abimelek Abner Abraham Absalom Adam Adonijah Ahab Ahaz Ahaziah Ahijah Ai Amalek Amaziah Ammon Amnon Amorite Amos Amoz Andrew Annas Antioch Apollos Aquila Arabah Arabia Aram Ararat Artaxerxes Asa Asaph Ashdod Asher Asherah Ashkelon Asia Assyria Athaliah Azariah Baal Baasha Babel Babylon Balaam Barabbas Barnabas Bartholomew Baruch Bashan Bathsheba Beelzebul Beersheba Benaiah Benjamin Berea Beth Shemesh Bethany Bethel Bethlehem Bethuel Boaz Caesar Caesarea Caiaphas Cain Caleb Cana Canaan Capernaum Carmel Chaldea Cilicia Colossae Corinth Cornelius Crete Cush Cyprus Cyrene Cyrus Damascus Dan Daniel Darius David Delilah Eden Edom Egypt Ekron Elam Eleazar Eliakim Elijah Elisha Elizabeth En Gedi Enoch Ephesus Ephraim Ephrath Esau Esther Ethiopia Euphrates River Eve Ezekiel Ezra Gabriel Gad Galatia Galilee Gath Gaza Gerar Geshur Gethsemane Gibeah Gibeon Gideon Gilead Gilgal Girgashites Golgotha Goliath Gomorrah Goshen Greece Greek Habakkuk Hagar Haggai Ham Hamath Hamor Hananiah Hannah Haran Hebron Hermon Herod Herodias Hezekiah Hilkiah Hittite Hivite Horeb Hosea Hoshea Iconium Isaac Isaiah Ishmael Issachar Jacob James Japheth Jebus Jehoiachin Jehoiada Jehoiakim Jehoram Jehoshaphat Jehu Jephthah Jeremiah Jericho Jeroboam Jerusalem Jesse Jethro Jezebel Jezreel Joab Joash Job Joel John John Mark Jonah Jonathan Joppa Joram Jordan River Joseph Joshua Josiah Jotham Judah Judas.*Iscariot Judas son of James Judea Kadesh Kedar Kedesh Kerethites Kidron Valley Korah Laban Lamech Lazarus Leah Lebanon Levi Leviathan Lot Luke Lystra Maakah Macedonia Maker Malachi Manasseh Martha Mary Mary Mary.*Magdalene Matthew Mede Melchizedek Memphis Meshech Mesopotamia Micah Michael Midian Miriam Mishael Mizpah Moab Molech Mordecai Moses Mount of Olives Naaman Nahor Nahum Naphtali Nathan Nazareth Nebuchadnezzar Negev Nehemiah Nile River Nineveh Noah Obadiah Omri Paddan Aram Paran Paul Peor Perizzite Persia Peter Pharaoh Philip Philippi Philistia Philistines Phinehas Phoenicia Pilate Pontus Potiphar Priscilla Rabbah Rachel Rahab Ramah Ramoth Rebekah Rehoboam Reuben Rimmon Rome Ruth Salt Sea Samaria Samson Samuel Sarah Saul Sea of Galilee Sea of Reeds Sennacherib Seth Sharon Sheba Shechem Shem Shiloh Shimei Shinar Sidon Silas Simeon Simon the Zealot Sinai Sodom Solomon Stephen Sukkoth Syria Tamar Tarshish Tarsus Terah Thessalonica Thomas Timothy Tirzah Titus Troas Tubal Tychicus Tyre Ur Uriah Uzziah Vashti Xerxes Zacchaeus Zadok Zebedee Zebulun Zechariah Zedekiah Zephaniah Zerubbabel Zoar