my $regex_string = "\b('. join ('|',keys %words).')\b';
my $regex = qr/$regex_string/;

$txt =~ s/$regex/$words{$regex}/eg;