$_ = <<'--';
Oh no, Anti-globalization activists are coming!
Globalization is rejected by...
--

use Regex::PreSuf;
%links = (
   'globalization' => '/encyclopedia/Globalization/index.html',
   'anti-globalization' => '/encyclopedia/Anti-Globalization/index.html'
  );
my $re = presuf(keys %links);

s/($re)/<a href="$links{lc $1}">$1<\/a>/gio;
print;

##</code><code>##

Oh no, <a href="/encyclopedia/Anti-Globalization/index.html">Anti-globalization</a> activists are coming!
<a href="/encyclopedia/Globalization/index.html">Globalization</a> is rejected by...