if ($word1 =~ /\b$word2\b/i)

if (lc($word1) eq lc($word2)) 

if ($word1 =~ /^$word2$/i)