foreach my $word (keys %glossary)
{
    print STDERR "$word ";
    # Works but tries to link inside other links.
    $file =~ s/(\s+)($word)([\.\?\!]?\s+)/"$1<a href=\"".$glossary{$word}{'link'}."\">$2<\/a>$3"/eig;
 }