$file =~ s/(\s+)($word)([\.\?\!]?\s+).*?(?!</a>)/"$1<a href=\"".$glossary{$word}{'link'}."\">$2<\/a>$3"/eig;